mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-25 09:41:15 +00:00
43815d1720
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1713 72102866-910b-0410-8b05-ffd578937521
14388 lines
510 KiB
Diff
14388 lines
510 KiB
Diff
Changes for GCC version 2.7.2.1 and Objective-C runtime snapshot 960906.
|
||
|
||
Go to the directory gcc-2.7.2.1 and perform these steps
|
||
|
||
rm objc/list.h
|
||
|
||
Then use this command
|
||
|
||
patch -p1
|
||
|
||
feeding it the following diffs as input.
|
||
|
||
diff -rcP gcc-2.7.2.1/ChangeLog gcc-2.7.2.1-objc-960906/ChangeLog
|
||
*** gcc-2.7.2.1/ChangeLog Fri Sep 6 11:18:56 1996
|
||
--- gcc-2.7.2.1-objc-960906/ChangeLog Fri Sep 6 10:23:44 1996
|
||
***************
|
||
*** 1,3 ****
|
||
--- 1,333 ----
|
||
+ Thu Sep 5 19:09:27 1996 Ovidiu Predescu <ovidiu@xpro.pcnet.ro>
|
||
+
|
||
+ * objc-act.c (encode_aggregate_within): New function.
|
||
+ (encode_aggregate): Generates encodings for unions similar
|
||
+ to those for structs except surrounded by parenthesis instead
|
||
+ of braces.
|
||
+
|
||
+ Thu Sep 5 10:24:36 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ Major reorganization of objc error handling.
|
||
+ * objc/Object.m (-error:): Call objc_error function instead of
|
||
+ using function pointer.
|
||
+ * objc/archive.c: Replace call to abort or __objc_fatal functions
|
||
+ with call to objc_error function throughout the complete file.
|
||
+ * objc/class.c (objc_get_class): Replace call to abort function
|
||
+ with call to objc_error function.
|
||
+ * objc/encoding.c (objc_sizeof_type, objc_alignof_type): Replace
|
||
+ call to abort function with call to objc_error function.
|
||
+ (objc_skip_typespec): Likewise.
|
||
+ * objc/init.c (init_check_module_version): Replace call to
|
||
+ abort function with call to objc_error function.
|
||
+ * objc/misc.c (objc_verror): New function.
|
||
+ (objc_fatal): Remove function.
|
||
+ (objc_set_error_handler): New function.
|
||
+ (_objc_error_handler): New global variable.
|
||
+ (__alpha__): Remove unneeded code.
|
||
+ (objc_error): Allow user specified error handler function to
|
||
+ trap and handle the objc error. Added an error code parameter
|
||
+ which indicates the specific error that occured.
|
||
+ (objc_malloc, objc_atomic_malloc): Replace call to objc_fatal
|
||
+ function with call to objc_error function.
|
||
+ (objc_valloc, objc_realloc, objc_calloc): Likewise.
|
||
+ * objc/objc-api.h: Declare error handling functions and typedef
|
||
+ for user specified error handler function. Define error codes
|
||
+ used by the runtime library.
|
||
+ * objc/runtime.h: Remove error handling declarations.
|
||
+ * objc/sendmsg.c (__objc_forward): Replace call to abort function
|
||
+ with call to objc_error function.
|
||
+
|
||
+ Mon Aug 26 12:36:16 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ * install.texi: Add instructions for the Objective-C runtime
|
||
+ library regarding thread support.
|
||
+
|
||
+ Mon Aug 26 11:17:32 1996 Thomas Baier <baier@ci.tuwien.ac.at>
|
||
+
|
||
+ * objc/hash.c (hash_delete): Step through the hash nodes
|
||
+ versus using hash_next to increase efficiency.
|
||
+ * objc/archive.c (__objc_finish_read_root_object): Use hash
|
||
+ table instead of list.
|
||
+
|
||
+ Thu Aug 8 08:56:05 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ Create consistent mechanism for memory allocation and release
|
||
+ so that garbage collection routines can be easily subsititued
|
||
+ for the ANSI standard malloc, realloc, free, etc.
|
||
+ * objc/archive.c: Replace use of __objc_xmalloc and free
|
||
+ with objc_malloc and objc_free.
|
||
+ * objc/hash.c: Replace use of __objc_xcalloc and free
|
||
+ with objc_calloc and objc_free.
|
||
+ * objc/init.c: Replace use of free with objc_free.
|
||
+ * objc/misc.c (objc_malloc): Renamed from __objc_xmalloc.
|
||
+ (objc_realloc): Renamed from __objc_realloc.
|
||
+ (objc_atomic_malloc): New function.
|
||
+ (objc_valloc): New function.
|
||
+ (objc_calloc): Renamed from __objc_calloc.
|
||
+ (objc_free): New function.
|
||
+ * objc/objc-api.h (_objc_malloc): New function pointer.
|
||
+ (_objc_atomic_malloc, _objc_valloc): Likewise.
|
||
+ (_objc_realloc, _objc_calloc, _objc_free): Likewise
|
||
+ * objc/objc-list.h: Replace use of __obj_xmalloc and free
|
||
+ with objc_malloc and objc_free.
|
||
+ * objc/objects.c: Likewise.
|
||
+ * objc/runtime.h (__objc_xmalloc): Delete.
|
||
+ (__objc_xrealloc, __objc_xcalloc): Delete.
|
||
+ * objc/sarray.c: Replace use of __objc_xmalloc and free
|
||
+ with objc_malloc and objc_free.
|
||
+ * objc/sarray.h (__objc_xmalloc, __objc_xrealloc): Delete.
|
||
+ * objc/selector.c: Replace use of __objc_xcalloc, __objc_xrealloc,
|
||
+ and __objc_xmalloc with objc_calloc, objc_realloc, and objc_malloc.
|
||
+ * objc/thr-decosf1.c: Replace use of __objc_xmalloc and free
|
||
+ with objc_malloc and objc_free.
|
||
+ * objc/thr-irix.c: Likewise.
|
||
+ * objc/thr-mach.c: Likewise.
|
||
+ * objc/thr-os2.c: Likewise.
|
||
+ * objc/thr-posix.c: Likewise.
|
||
+ * objc/thr-pthreads.c: Likewise.
|
||
+ * objc/thr-single.c: Likewise.
|
||
+ * objc/thr-solaris.c: Likewise.
|
||
+ * objc/thr-win32.c: Likewise.
|
||
+ * objc/thr.c: Likewise.
|
||
+
|
||
+ Tue Aug 6 12:42:25 1996 Ovidiu Predescu (ovidiu@xpro.pcnet.ro)
|
||
+
|
||
+ * objc/encoding.c (method_get_next_argument): Take into consideration
|
||
+ OBJC_FORWARDING_STACK_OFFSET for accessing stack variables.
|
||
+ (method_get_nth_argument): Likewise.
|
||
+
|
||
+ * objc/encoding.h (method_get_sizeof_arguments): Fix typo.
|
||
+
|
||
+ * objc/selector.c (__objc_register_instance_methods_to_class): New
|
||
+ function.
|
||
+ * objc/runtime.h: Likewise. Add missing function prototypes.
|
||
+
|
||
+ * objc/init.c (__objc_exec_class): Initialize subclass to NULL.
|
||
+ Call __objc_register_instance_methods_to_class to register
|
||
+ instance methods as class methods for root classes.
|
||
+
|
||
+ * objc/objc-api.h: On NeXT redefine object_copy and object_dispose
|
||
+ to avoid a conflict with those defined in system library.
|
||
+
|
||
+ * objc/sendmsg.c: Also check if STRUCT_VALUE is even defined.
|
||
+ (search_for_method_in_list): No longer static.
|
||
+
|
||
+ Tue Aug 6 09:40:29 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ Add condition mutex support to the objc runtime.
|
||
+ * objc/THREADS: Update information.
|
||
+ * objc/thr-mach.c (objc_condition_allocate): New function.
|
||
+ (objc_condition_deallocate): New function.
|
||
+ (objc_condition_wait): New function.
|
||
+ (objc_condition_broadcast): New function.
|
||
+ (objc_condition_signal): New function.
|
||
+ * objc/thr-pthreads.c (objc_condition_allocate): New function.
|
||
+ (objc_condition_deallocate): New function.
|
||
+ (objc_condition_wait): New function.
|
||
+ (objc_condition_broadcast): New function.
|
||
+ (objc_condition_signal): New function.
|
||
+ * objc/thr-solaris.c (objc_condition_allocate): New function.
|
||
+ (objc_condition_deallocate): New function.
|
||
+ (objc_condition_wait): New function.
|
||
+ (objc_condition_broadcast): New function.
|
||
+ (objc_condition_signal): New function.
|
||
+ * objc/thr.h: Prototypes for new functions.
|
||
+
|
||
+ * objc/init.c (__objc_runtime_mutex): Eliminate leading underscore
|
||
+ from name of objc mutex and thread structures.
|
||
+ * objc/runtime.h: Likewise.
|
||
+ * objc/thr-decosf1.c: Likewise.
|
||
+ * objc/thr-irix.c: Likewise.
|
||
+ * objc/thr-mach.c: Likewise.
|
||
+ * objc/thr-os2.c: Likewise.
|
||
+ * objc/thr-posix.c: Likewise.
|
||
+ * objc/thr-pthreads.c: Likewise.
|
||
+ * objc/thr-single.c: Likewise.
|
||
+ * objc/thr-solaris.c: Likewise.
|
||
+ * objc/thr.c: Likewise.
|
||
+ * objc/thr.h: Likewise.
|
||
+ * objc/thr-win32.c: Likewise. Define __OBJC__ before including
|
||
+ Windows header files.
|
||
+
|
||
+ * config/i386/next.h (OBJC_MAX_STRUCT_BY_VALUE): New definition.
|
||
+ * objc/sendmsg.c (get_imp, objc_msg_lookup): Add logic to determine
|
||
+ when structures are passed by value.
|
||
+
|
||
+ * objc/selector.c (__sel_register_typed_name): Eliminate compiler
|
||
+ warnings with explicit cast.
|
||
+
|
||
+ Mon Aug 5 12:40:29 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ * expr.c (expand_builtin_apply): Use SAVE_NONLOCAL on PPC.
|
||
+
|
||
+ * objc/sendmsg.c: Clean up comments, make code fit with 80 columns.
|
||
+ * objc/objc.h: Likewise.
|
||
+ * objc/objc-api.h: Likewise.
|
||
+ * objc/archive.c: Likewise.
|
||
+ * objc/class.c: Likewise.
|
||
+ * objc/sarray.c: Likewise.
|
||
+ * objc/thr-mach.c: Likewise.
|
||
+ * objc/thr-posix.c: Likewise.
|
||
+ * objc/thr-pthreads.c: Likewise.
|
||
+ * objc/thr-win32.c: Likewise.
|
||
+ * objc/thr-os2.c: Likewise.
|
||
+ * objc/thr-solaris.c: Likewise.
|
||
+ * objc/thr.c: Likewise.
|
||
+
|
||
+ Fri Jun 28 18:37:20 1996 Stephen L Moshier <moshier@world.std.com>
|
||
+
|
||
+ * objc/sarray.c (ifdef __alpha__): Don't declare `free'.
|
||
+ * objc/thr-decosf1.c (objc_thread_id): Use pthread_getunique_np
|
||
+ to obtain a thread ID value.
|
||
+ (objc_mutex_allocate): Cast mutex->owner to _objc_thread_t.
|
||
+ (objc_mutex_deallocate): Likewise.
|
||
+ (objc_mutex_unlock): Likewise.
|
||
+ (objc_mutex_trylock): Declare thread_id as _objc_thread_t.
|
||
+ (objc_mutex_lock): Likewise.
|
||
+ (objc_mutex_unlock): Likewise.
|
||
+
|
||
+ Wed Jun 19 12:22:58 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ * objc/sendmsg.c (__objc_double_forward): New function.
|
||
+ (get_imp, objc_msg_lookup): Use different forwarding function
|
||
+ when returning a floating point value.
|
||
+
|
||
+ Wed Jun 5 09:46:22 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ * objc/Makefile (libobjc.a): Don't delete the library; its contents
|
||
+ would be incorrect if only a single file was recompiled.
|
||
+
|
||
+ * objc/thr.h (objc_set_thread_callback): New function.
|
||
+ (objc_thread_callback): Typedef for the hook function which is
|
||
+ called when the runtime first becomes multi-threaded.
|
||
+ * objc/thr.c (__objc_thread_detach_function): Clear thread storage.
|
||
+ Call the thread hook function when first becoming multi-threaded.
|
||
+ (objc_set_thread_callback): New function.
|
||
+
|
||
+ * objc/selector.c (__sel_register_typed_name): Implement additional
|
||
+ parameter which indicates whether name and type parameters are truly
|
||
+ constant or not. Previously runtime assumed they were; now it
|
||
+ assumes that they are not. If constant then the actual pointers
|
||
+ passed as parameters can be stored in the runtime structures;
|
||
+ otherwise, the data must be copied into malloced space.
|
||
+ * objc/runtime.h (__sel_register_typed_name): Likewise.
|
||
+ * objc/init.c (__sel_register_typed_name): Likewise.
|
||
+
|
||
+ Tue Jun 4 18:15:31 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ * objc/init.c (__objc_init_protocols): Need to unlock mutex.
|
||
+
|
||
+ Wed May 22 12:43:49 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ * objc/sendmsg.c (objc_get_uninstalled_dtable): New function.
|
||
+ * objc/objc-api.h (objc_get_uninstalled_dtable): Likewise.
|
||
+
|
||
+ * Makefile.in (OBJC_THREAD_FILE): New variable that holds the
|
||
+ source file name to be compiled for Objective-C Runtime Library
|
||
+ thread support. It is passed directly down to the Objective-C
|
||
+ Runtime Library makefile.
|
||
+ * configure (objc_thread_file): Set new variable to appropriate
|
||
+ values based upon target operating system; default is `thr-single'.
|
||
+ * objc/Makefile (OBJC_THREAD_FILE): Add target and dependency.
|
||
+ (thr.o): Remove OS specific thread files as dependencies.
|
||
+ * objc/thr-decosf1.c: Now compiles as a separate source file, so
|
||
+ include in appropriate Objective-C headers.
|
||
+ * objc/thr-mach.c: Likewise.
|
||
+ * objc/thr-os2.c: Likewise.
|
||
+ * objc/thr-posix.c: Likewise.
|
||
+ * objc/thr-pthreads.c: Likewise.
|
||
+ * objc/thr-irix.c: Likewise.
|
||
+ * objc/thr-single.c: Likewise.
|
||
+ * objc/thr-solaris.c: Likewise.
|
||
+ * objc/thr-win32.c: Likewise.
|
||
+ * objc/thr.c: Remove inclusion of source files.
|
||
+ * objc/thr.h (__objc_thread_exit_status): Declare global variable.
|
||
+ * objc/thr-pthreads.c: New file.
|
||
+
|
||
+ Fri May 17 08:12:37 1996 Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ * objc/thr-os2.c, objc/thr-posix.c, objc/thr-mach.c: New files.
|
||
+ * objc/THREADS.MACH: New file.
|
||
+
|
||
+ * objc/sendmsg.c (nil_method): Deleted from here.
|
||
+ * objc/nil_method.c: New file.
|
||
+ * Makefile (OBJC_O): Add dependency for nil_method.c.
|
||
+
|
||
+ * objc/hash.c (hash_is_key_in_hash): New function.
|
||
+ * objc/hash.h: Include objc/objc.h here instead of in objc/hash.c
|
||
+ to get BOOL typedef.
|
||
+
|
||
+ Tue Apr 16 06:22:00 1996 Richard Kenner (kenner@vlsi1.ultra.nyu.edu)
|
||
+
|
||
+ * objc/thr-decosf1.c (_objc_thread_id): Correct return type from
|
||
+ int to _objc_thread_id.
|
||
+
|
||
+ Sun Apr 14 07:52:28 1996 Manor Askenazi <manor@santafe.edu>
|
||
+
|
||
+ * objc/encoding.c (objc_skip_typespec): Don't abort for _C_UNDEF.
|
||
+
|
||
+ Thu Apr 4 12:17:08 1996 Richard Kenner (kenner@vlsi1.ultra.nyu.edu)
|
||
+
|
||
+ * objc/Makefile: Rename thread* to thr*.
|
||
+ * objc/thread.c: Rename thread-* to thr-*.
|
||
+ * objc/thr-decosf1.c: Renamed from thread-decosf1.c
|
||
+ * objc/thr-irix.c: Renamed from thread-irix.c.
|
||
+ * objc/thr-single.c: Renamed from thread-single.c.
|
||
+ * objc/thr-solarius.c: Renamed from thread-solaris.c.
|
||
+ * objc/thr-win32.c: Renamed from thread-win32.c.
|
||
+ * objc/objc-api.h: Include thr.h, not thread.h.
|
||
+ * objc/runtime.h, objc/sarray.h: Likewise.
|
||
+
|
||
+ Mon Mar 25 08:09:59 1996 Richard Kenner (kenner@vlsi1.ultra.nyu.edu)
|
||
+
|
||
+ * objc/thread-single.c (objc_mutex_unlock): Properly declare thread_id.
|
||
+
|
||
+ Tue Mar 5 09:22:20 1996 Scott Christley (scottc@net-community.com)
|
||
+
|
||
+ * objc/objc-api.h, objc/runtime.h: Include objc/thread.h.
|
||
+ * objc/class.c (__objc_init_class_tables): Surround sarray access
|
||
+ with mutex lock/unlock.
|
||
+ (__objc_add_class_to_hash, objc_lookup_class): Likewise.
|
||
+ (objc_get_class, objc_get_next_class): Likewise.
|
||
+ (__objc_resolve_class_links, class_pose_as): Likewise.
|
||
+ * objc/init.c (__objc_runtime_mutux, __objc_runtime_thread_alive):
|
||
+ New variables.
|
||
+ (objc_init_statics, __objc_init_protocols): Surround sarray access
|
||
+ with mutex lock/unlock
|
||
+ (__objc_exec_class): Likewise.
|
||
+ Initialization for thread-safe global variables.
|
||
+ Declarations for thread-safe functions and global variables
|
||
+ * objc/sendmsg.c (get_imp, __objc_responds_to):
|
||
+ Surround sarray access with mutex lock/unlock.
|
||
+ (__objc_init_install_dtable): Likewise.
|
||
+ (__objc_update_dispatch_table_for_class): Likewise.
|
||
+ (__objc_print_dtable_stats): Likewise.
|
||
+ * objc/selector.c (sel_get_typed_uid, sel_get_any_typed_uid): Likewise.
|
||
+ (sel_get_any_uid, sel_get_name, sel_register_name): Likewise.
|
||
+ (sel_register_typed_name): Likewise.
|
||
+ * objc/sarray.h (union sversion): New.
|
||
+ (struct sarray): Maintain multiple versions.
|
||
+ (sarray_remove_garbage): Add prototype.
|
||
+ * objc/sarray.c (sarray_{remove,free}_garbage): New functions.
|
||
+ (sarray_at_put, sarray_new, sarray_lazy_copy):
|
||
+ Modify/copy sarray structure/data in a thread-safe manner
|
||
+ (sarray_{realloc,free}): Reallocate/free sarray structure/data in a
|
||
+ thread-safe manner.
|
||
+
|
||
+ * objc/THREADS, objc/thread.c, objc/thread.h: New files.
|
||
+ * objc/thread-{decosf1,irix,solaris,win32,single}.c: New files.
|
||
+ * objc/objc-list.h: Renamed from objc/list.h.
|
||
+ * objc/Makefile: Changes to compile new files and name renaming.
|
||
+ * objc/makefile.dos: Likewise.
|
||
+
|
||
+ Mon Jan 15 06:20:38 1996 Richard Kenner (kenner@vlsi1.ultra.nyu.edu)
|
||
+
|
||
+ * objc/archive.c (objc_{write,read}_type, case _C_STRUCT_B): Fix typo.
|
||
+
|
||
+ Mon Dec 18 19:31:23 1995 Adam Fedor <fedor@wilma.Colorado.EDU>
|
||
+
|
||
+ * objc/encoding.c (objc_alignof_type): Handle _C_PTR case.
|
||
+
|
||
Sat Jun 29 12:33:39 1996 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
|
||
|
||
* Version 2.7.2.1 released.
|
||
diff -rcP gcc-2.7.2.1/INSTALL gcc-2.7.2.1-objc-960906/INSTALL
|
||
*** gcc-2.7.2.1/INSTALL Fri Sep 6 11:19:40 1996
|
||
--- gcc-2.7.2.1-objc-960906/INSTALL Fri Sep 6 10:24:28 1996
|
||
***************
|
||
*** 427,432 ****
|
||
--- 427,474 ----
|
||
a C++ run-time library. All I/O functionality, special class
|
||
libraries, etc., are available in the libg++ distribution.
|
||
|
||
+ 17. GNU C does include a runtime library for Objective-C because it is
|
||
+ an integral part of the language; all of the files associated with
|
||
+ the library are located in the subdirectory `objc'. The GNU
|
||
+ Objective-C Runtime Library does require header files for the
|
||
+ target's C library in order to be compiled, and it will also
|
||
+ require the header files for the target's thread library if you
|
||
+ want thread support. *Note Cross-Compilers and Header Files:
|
||
+ Cross Headers, for discussion about header files issues for
|
||
+ cross-compilation.
|
||
+
|
||
+ When you run `configure', it picks the appropriate Objective-C
|
||
+ back-end thread implementation file for the target platform. In
|
||
+ some situations, you may wish to choose a different back-end as
|
||
+ some platforms support multiple thread implementations, or you may
|
||
+ wish to disable thread support completely. This can be done by
|
||
+ specifying a value for the OBJC_THREAD_FILE makefile variable on
|
||
+ the command line when you run make, for example:
|
||
+
|
||
+ make CC="stage2/xgcc -Bstage2/" CFLAGS="-g -O2" OBJC_THREAD_FILE=thr-single
|
||
+
|
||
+ Below is a list of the currently available back-ends.
|
||
+
|
||
+ * thr-single; disable thread support, should work for all
|
||
+ platforms.
|
||
+
|
||
+ * thr-decosf1; DEC OSF/1 thread support.
|
||
+
|
||
+ * thr-irix; SGI IRIX thread support.
|
||
+
|
||
+ * thr-mach; Generic MACH thread support, known to work on
|
||
+ NEXTSTEP.
|
||
+
|
||
+ * thr-os2; IBM OS/2 thread support.
|
||
+
|
||
+ * thr-posix; Generix POSIX thread support.
|
||
+
|
||
+ * thr-pthreads; PCThreads on Linux based GNU systems.
|
||
+
|
||
+ * thr-solaris; SUN Solaris thread support.
|
||
+
|
||
+ * thr-win32; Microsoft Win32 API thread support.
|
||
+
|
||
Configurations Supported by GNU CC
|
||
==================================
|
||
|
||
diff -rcP gcc-2.7.2.1/Makefile.in gcc-2.7.2.1-objc-960906/Makefile.in
|
||
*** gcc-2.7.2.1/Makefile.in Fri Sep 6 11:19:41 1996
|
||
--- gcc-2.7.2.1-objc-960906/Makefile.in Fri Sep 6 10:24:29 1996
|
||
***************
|
||
*** 174,179 ****
|
||
--- 174,180 ----
|
||
host_xm_file= ... `configure' substitutes actual host xm- file name here.
|
||
lang_specs_files= ... `configure' substitutes actual lang spec file names here.
|
||
lang_options_files= ... `configure' puts actual lang options file names here.
|
||
+ OBJC_THREAD_FILE= ... `configure' puts actual objc thread file name here.
|
||
version=`sed -e 's/.*\"\([^ \"]*\)[ \"].*/\1/' < $(srcdir)/version.c`
|
||
mainversion=`sed -e 's/.*\"\([0-9]*\.[0-9]*\).*/\1/' < $(srcdir)/version.c`
|
||
|
||
***************
|
||
*** 995,1001 ****
|
||
$(MAKE) -f $${srcdir1}/objc/Makefile libobjc.a \
|
||
srcdir=$${srcdir1} tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
|
||
GCC_FOR_TARGET="$${thisdir1}/xgcc -B$${thisdir1}/" \
|
||
! GCC_CFLAGS="$(GCC_CFLAGS)"
|
||
-rm -f libobjc.a
|
||
ln objc/libobjc.a . >/dev/null 2>&1 || cp objc/libobjc.a .
|
||
-if $(RANLIB_TEST) ; then $(RANLIB) libobjc.a; else true; fi
|
||
--- 996,1002 ----
|
||
$(MAKE) -f $${srcdir1}/objc/Makefile libobjc.a \
|
||
srcdir=$${srcdir1} tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
|
||
GCC_FOR_TARGET="$${thisdir1}/xgcc -B$${thisdir1}/" \
|
||
! GCC_CFLAGS="$(GCC_CFLAGS)" OBJC_THREAD_FILE="$(OBJC_THREAD_FILE)"
|
||
-rm -f libobjc.a
|
||
ln objc/libobjc.a . >/dev/null 2>&1 || cp objc/libobjc.a .
|
||
-if $(RANLIB_TEST) ; then $(RANLIB) libobjc.a; else true; fi
|
||
***************
|
||
*** 1008,1014 ****
|
||
$(MAKE) -f $$srcdir1/objc/Makefile libobjc.a \
|
||
srcdir=$$srcdir1 tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
|
||
GCC_FOR_TARGET="$$thisdir1/xgcc -B$$thisdir1/" \
|
||
! GCC_CFLAGS="$(GCC_CFLAGS)"
|
||
|
||
# Compile two additional files that are linked with every program
|
||
# linked using GCC on systems using COFF or ELF, for the sake of C++
|
||
--- 1009,1015 ----
|
||
$(MAKE) -f $$srcdir1/objc/Makefile libobjc.a \
|
||
srcdir=$$srcdir1 tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
|
||
GCC_FOR_TARGET="$$thisdir1/xgcc -B$$thisdir1/" \
|
||
! GCC_CFLAGS="$(GCC_CFLAGS)" OBJC_THREAD_FILE="$(OBJC_THREAD_FILE)"
|
||
|
||
# Compile two additional files that are linked with every program
|
||
# linked using GCC on systems using COFF or ELF, for the sake of C++
|
||
diff -rcP gcc-2.7.2.1/bi-parser.c gcc-2.7.2.1-objc-960906/bi-parser.c
|
||
*** gcc-2.7.2.1/bi-parser.c Fri Sep 6 11:19:53 1996
|
||
--- gcc-2.7.2.1-objc-960906/bi-parser.c Fri Sep 6 10:24:41 1996
|
||
***************
|
||
*** 1,5 ****
|
||
|
||
! /* A Bison parser, made from bi-parser.y with Bison version GNU Bison version 1.22
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
--- 1,5 ----
|
||
|
||
! /* A Bison parser, made from bi-parser.y with Bison version GNU Bison version 1.24
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
***************
|
||
*** 123,131 ****
|
||
93, 95, 98, 101, 105, 108, 112
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$illegal.","DEFOP","STRING",
|
||
! "'('","','","')'","top","defs","def","variations","variation","opt_string","list",
|
||
! "items","item",""
|
||
};
|
||
#endif
|
||
|
||
--- 123,131 ----
|
||
93, 95, 98, 101, 105, 108, 112
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$undefined.","DEFOP",
|
||
! "STRING","'('","','","')'","top","defs","def","variations","variation","opt_string",
|
||
! "list","items","item",""
|
||
};
|
||
#endif
|
||
|
||
***************
|
||
*** 179,192 ****
|
||
-1, 12, -1, -1, 16
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/local/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
|
||
|
||
This program 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 1, or (at your option)
|
||
any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
--- 179,192 ----
|
||
-1, 12, -1, -1, 16
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
|
||
|
||
This program 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.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
***************
|
||
*** 198,203 ****
|
||
--- 198,207 ----
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
||
+ /* As a special exception, when this file is copied by Bison into a
|
||
+ Bison output file, you may use that output file without restriction.
|
||
+ This special exception was added by the Free Software Foundation
|
||
+ in version 1.24 of Bison. */
|
||
|
||
#ifndef alloca
|
||
#ifdef __GNUC__
|
||
***************
|
||
*** 271,280 ****
|
||
--- 275,292 ----
|
||
|
||
#ifdef YYPURE
|
||
#ifdef YYLSP_NEEDED
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
|
||
+ #else
|
||
#define YYLEX yylex(&yylval, &yylloc)
|
||
+ #endif
|
||
+ #else /* not YYLSP_NEEDED */
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, YYLEX_PARAM)
|
||
#else
|
||
#define YYLEX yylex(&yylval)
|
||
#endif
|
||
+ #endif /* not YYLSP_NEEDED */
|
||
#endif
|
||
|
||
/* If nonreentrant, generate the variables here */
|
||
***************
|
||
*** 322,335 ****
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
--- 334,347 ----
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_memcpy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
***************
|
||
*** 347,353 ****
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
--- 359,365 ----
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
***************
|
||
*** 360,366 ****
|
||
#endif
|
||
#endif
|
||
|
||
! #line 184 "/usr/local/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
--- 372,378 ----
|
||
#endif
|
||
#endif
|
||
|
||
! #line 192 "/usr/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
***************
|
||
*** 493,504 ****
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
--- 505,516 ----
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_memcpy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_memcpy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_memcpy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
***************
|
||
*** 716,722 ****
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 480 "/usr/local/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
--- 728,734 ----
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 487 "/usr/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
diff -rcP gcc-2.7.2.1/c-gperf.h gcc-2.7.2.1-objc-960906/c-gperf.h
|
||
*** gcc-2.7.2.1/c-gperf.h Fri Sep 6 11:20:00 1996
|
||
--- gcc-2.7.2.1-objc-960906/c-gperf.h Fri Sep 6 10:24:48 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* C code produced by gperf version 2.5 (GNU C++ version) */
|
||
! /* Command-line: gperf -p -j1 -i 1 -g -o -t -G -N is_reserved_word -k1,3,$ c-parse.gperf */
|
||
struct resword { char *name; short token; enum rid rid; };
|
||
|
||
#define TOTAL_KEYWORDS 79
|
||
--- 1,6 ----
|
||
/* C code produced by gperf version 2.5 (GNU C++ version) */
|
||
! /* Command-line: gperf -p -j1 -i 1 -g -o -t -G -N is_reserved_word -k1,3,$ ./c-parse.gperf */
|
||
! /* Command-line: gperf -p -j1 -i 1 -g -o -t -N is_reserved_word -k1,3,$ c-parse.gperf */
|
||
struct resword { char *name; short token; enum rid rid; };
|
||
|
||
#define TOTAL_KEYWORDS 79
|
||
***************
|
||
*** 10,16 ****
|
||
/* maximum key range = 135, duplicates = 0 */
|
||
|
||
#ifdef __GNUC__
|
||
! __inline
|
||
#endif
|
||
static unsigned int
|
||
hash (str, len)
|
||
--- 11,17 ----
|
||
/* maximum key range = 135, duplicates = 0 */
|
||
|
||
#ifdef __GNUC__
|
||
! inline
|
||
#endif
|
||
static unsigned int
|
||
hash (str, len)
|
||
***************
|
||
*** 43,167 ****
|
||
case 2:
|
||
case 1:
|
||
hval += asso_values[str[0]];
|
||
}
|
||
return hval + asso_values[str[len - 1]];
|
||
}
|
||
|
||
static struct resword wordlist[] =
|
||
{
|
||
! {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",},
|
||
! {"",},
|
||
! {"int", TYPESPEC, RID_INT},
|
||
! {"",}, {"",},
|
||
! {"__typeof__", TYPEOF, NORID},
|
||
! {"__signed__", TYPESPEC, RID_SIGNED},
|
||
! {"__imag__", IMAGPART, NORID},
|
||
! {"switch", SWITCH, NORID},
|
||
! {"__inline__", SCSPEC, RID_INLINE},
|
||
! {"else", ELSE, NORID},
|
||
! {"__iterator__", SCSPEC, RID_ITERATOR},
|
||
! {"__inline", SCSPEC, RID_INLINE},
|
||
! {"__extension__", EXTENSION, NORID},
|
||
! {"struct", STRUCT, NORID},
|
||
! {"__real__", REALPART, NORID},
|
||
! {"__const", TYPE_QUAL, RID_CONST},
|
||
! {"while", WHILE, NORID},
|
||
! {"__const__", TYPE_QUAL, RID_CONST},
|
||
! {"case", CASE, NORID},
|
||
! {"__complex__", TYPESPEC, RID_COMPLEX},
|
||
! {"__iterator", SCSPEC, RID_ITERATOR},
|
||
! {"bycopy", TYPE_QUAL, RID_BYCOPY},
|
||
! {"",}, {"",}, {"",},
|
||
! {"__complex", TYPESPEC, RID_COMPLEX},
|
||
! {"",},
|
||
! {"in", TYPE_QUAL, RID_IN},
|
||
! {"break", BREAK, NORID},
|
||
! {"@defs", DEFS, NORID},
|
||
! {"",}, {"",}, {"",},
|
||
! {"extern", SCSPEC, RID_EXTERN},
|
||
! {"if", IF, NORID},
|
||
! {"typeof", TYPEOF, NORID},
|
||
! {"typedef", SCSPEC, RID_TYPEDEF},
|
||
! {"__typeof", TYPEOF, NORID},
|
||
! {"sizeof", SIZEOF, NORID},
|
||
! {"",},
|
||
! {"return", RETURN, NORID},
|
||
! {"const", TYPE_QUAL, RID_CONST},
|
||
! {"__volatile__", TYPE_QUAL, RID_VOLATILE},
|
||
! {"@private", PRIVATE, NORID},
|
||
! {"@selector", SELECTOR, NORID},
|
||
! {"__volatile", TYPE_QUAL, RID_VOLATILE},
|
||
! {"__asm__", ASM_KEYWORD, NORID},
|
||
! {"",}, {"",},
|
||
! {"continue", CONTINUE, NORID},
|
||
! {"__alignof__", ALIGNOF, NORID},
|
||
! {"__imag", IMAGPART, NORID},
|
||
! {"__attribute__", ATTRIBUTE, NORID},
|
||
! {"",}, {"",},
|
||
! {"__attribute", ATTRIBUTE, NORID},
|
||
! {"for", FOR, NORID},
|
||
! {"",},
|
||
! {"@encode", ENCODE, NORID},
|
||
! {"id", OBJECTNAME, RID_ID},
|
||
! {"static", SCSPEC, RID_STATIC},
|
||
! {"@interface", INTERFACE, NORID},
|
||
! {"",},
|
||
! {"__signed", TYPESPEC, RID_SIGNED},
|
||
! {"",},
|
||
! {"__label__", LABEL, NORID},
|
||
! {"",}, {"",},
|
||
! {"__asm", ASM_KEYWORD, NORID},
|
||
! {"char", TYPESPEC, RID_CHAR},
|
||
! {"",},
|
||
! {"inline", SCSPEC, RID_INLINE},
|
||
! {"out", TYPE_QUAL, RID_OUT},
|
||
! {"register", SCSPEC, RID_REGISTER},
|
||
! {"__real", REALPART, NORID},
|
||
! {"short", TYPESPEC, RID_SHORT},
|
||
! {"",},
|
||
! {"enum", ENUM, NORID},
|
||
! {"inout", TYPE_QUAL, RID_INOUT},
|
||
! {"",},
|
||
! {"oneway", TYPE_QUAL, RID_ONEWAY},
|
||
! {"union", UNION, NORID},
|
||
! {"",},
|
||
! {"__alignof", ALIGNOF, NORID},
|
||
! {"",},
|
||
! {"@implementation", IMPLEMENTATION, NORID},
|
||
! {"",},
|
||
! {"@class", CLASS, NORID},
|
||
! {"",},
|
||
! {"@public", PUBLIC, NORID},
|
||
! {"asm", ASM_KEYWORD, NORID},
|
||
! {"",}, {"",}, {"",}, {"",}, {"",},
|
||
! {"default", DEFAULT, NORID},
|
||
! {"",},
|
||
! {"void", TYPESPEC, RID_VOID},
|
||
! {"",},
|
||
! {"@protected", PROTECTED, NORID},
|
||
! {"@protocol", PROTOCOL, NORID},
|
||
! {"",}, {"",}, {"",},
|
||
! {"volatile", TYPE_QUAL, RID_VOLATILE},
|
||
! {"",}, {"",},
|
||
! {"signed", TYPESPEC, RID_SIGNED},
|
||
! {"float", TYPESPEC, RID_FLOAT},
|
||
! {"@end", END, NORID},
|
||
! {"",}, {"",},
|
||
! {"unsigned", TYPESPEC, RID_UNSIGNED},
|
||
! {"@compatibility_alias", ALIAS, NORID},
|
||
! {"double", TYPESPEC, RID_DOUBLE},
|
||
! {"",}, {"",},
|
||
! {"auto", SCSPEC, RID_AUTO},
|
||
! {"",},
|
||
! {"goto", GOTO, NORID},
|
||
! {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",},
|
||
! {"do", DO, NORID},
|
||
! {"",}, {"",}, {"",}, {"",},
|
||
! {"long", TYPESPEC, RID_LONG},
|
||
};
|
||
|
||
#ifdef __GNUC__
|
||
! __inline
|
||
#endif
|
||
struct resword *
|
||
is_reserved_word (str, len)
|
||
--- 44,169 ----
|
||
case 2:
|
||
case 1:
|
||
hval += asso_values[str[0]];
|
||
+ break;
|
||
}
|
||
return hval + asso_values[str[len - 1]];
|
||
}
|
||
|
||
static struct resword wordlist[] =
|
||
{
|
||
! {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",},
|
||
! {"",},
|
||
! {"int", TYPESPEC, RID_INT},
|
||
! {"",}, {"",},
|
||
! {"__typeof__", TYPEOF, NORID},
|
||
! {"__signed__", TYPESPEC, RID_SIGNED},
|
||
! {"__imag__", IMAGPART, NORID},
|
||
! {"switch", SWITCH, NORID},
|
||
! {"__inline__", SCSPEC, RID_INLINE},
|
||
! {"else", ELSE, NORID},
|
||
! {"__iterator__", SCSPEC, RID_ITERATOR},
|
||
! {"__inline", SCSPEC, RID_INLINE},
|
||
! {"__extension__", EXTENSION, NORID},
|
||
! {"struct", STRUCT, NORID},
|
||
! {"__real__", REALPART, NORID},
|
||
! {"__const", TYPE_QUAL, RID_CONST},
|
||
! {"while", WHILE, NORID},
|
||
! {"__const__", TYPE_QUAL, RID_CONST},
|
||
! {"case", CASE, NORID},
|
||
! {"__complex__", TYPESPEC, RID_COMPLEX},
|
||
! {"__iterator", SCSPEC, RID_ITERATOR},
|
||
! {"bycopy", TYPE_QUAL, RID_BYCOPY},
|
||
! {"",}, {"",}, {"",},
|
||
! {"__complex", TYPESPEC, RID_COMPLEX},
|
||
! {"",},
|
||
! {"in", TYPE_QUAL, RID_IN},
|
||
! {"break", BREAK, NORID},
|
||
! {"@defs", DEFS, NORID},
|
||
! {"",}, {"",}, {"",},
|
||
! {"extern", SCSPEC, RID_EXTERN},
|
||
! {"if", IF, NORID},
|
||
! {"typeof", TYPEOF, NORID},
|
||
! {"typedef", SCSPEC, RID_TYPEDEF},
|
||
! {"__typeof", TYPEOF, NORID},
|
||
! {"sizeof", SIZEOF, NORID},
|
||
! {"",},
|
||
! {"return", RETURN, NORID},
|
||
! {"const", TYPE_QUAL, RID_CONST},
|
||
! {"__volatile__", TYPE_QUAL, RID_VOLATILE},
|
||
! {"@private", PRIVATE, NORID},
|
||
! {"@selector", SELECTOR, NORID},
|
||
! {"__volatile", TYPE_QUAL, RID_VOLATILE},
|
||
! {"__asm__", ASM_KEYWORD, NORID},
|
||
! {"",}, {"",},
|
||
! {"continue", CONTINUE, NORID},
|
||
! {"__alignof__", ALIGNOF, NORID},
|
||
! {"__imag", IMAGPART, NORID},
|
||
! {"__attribute__", ATTRIBUTE, NORID},
|
||
! {"",}, {"",},
|
||
! {"__attribute", ATTRIBUTE, NORID},
|
||
! {"for", FOR, NORID},
|
||
! {"",},
|
||
! {"@encode", ENCODE, NORID},
|
||
! {"id", OBJECTNAME, RID_ID},
|
||
! {"static", SCSPEC, RID_STATIC},
|
||
! {"@interface", INTERFACE, NORID},
|
||
! {"",},
|
||
! {"__signed", TYPESPEC, RID_SIGNED},
|
||
! {"",},
|
||
! {"__label__", LABEL, NORID},
|
||
! {"",}, {"",},
|
||
! {"__asm", ASM_KEYWORD, NORID},
|
||
! {"char", TYPESPEC, RID_CHAR},
|
||
! {"",},
|
||
! {"inline", SCSPEC, RID_INLINE},
|
||
! {"out", TYPE_QUAL, RID_OUT},
|
||
! {"register", SCSPEC, RID_REGISTER},
|
||
! {"__real", REALPART, NORID},
|
||
! {"short", TYPESPEC, RID_SHORT},
|
||
! {"",},
|
||
! {"enum", ENUM, NORID},
|
||
! {"inout", TYPE_QUAL, RID_INOUT},
|
||
! {"",},
|
||
! {"oneway", TYPE_QUAL, RID_ONEWAY},
|
||
! {"union", UNION, NORID},
|
||
! {"",},
|
||
! {"__alignof", ALIGNOF, NORID},
|
||
! {"",},
|
||
! {"@implementation", IMPLEMENTATION, NORID},
|
||
! {"",},
|
||
! {"@class", CLASS, NORID},
|
||
! {"",},
|
||
! {"@public", PUBLIC, NORID},
|
||
! {"asm", ASM_KEYWORD, NORID},
|
||
! {"",}, {"",}, {"",}, {"",}, {"",},
|
||
! {"default", DEFAULT, NORID},
|
||
! {"",},
|
||
! {"void", TYPESPEC, RID_VOID},
|
||
! {"",},
|
||
! {"@protected", PROTECTED, NORID},
|
||
! {"@protocol", PROTOCOL, NORID},
|
||
! {"",}, {"",}, {"",},
|
||
! {"volatile", TYPE_QUAL, RID_VOLATILE},
|
||
! {"",}, {"",},
|
||
! {"signed", TYPESPEC, RID_SIGNED},
|
||
! {"float", TYPESPEC, RID_FLOAT},
|
||
! {"@end", END, NORID},
|
||
! {"",}, {"",},
|
||
! {"unsigned", TYPESPEC, RID_UNSIGNED},
|
||
! {"@compatibility_alias", ALIAS, NORID},
|
||
! {"double", TYPESPEC, RID_DOUBLE},
|
||
! {"",}, {"",},
|
||
! {"auto", SCSPEC, RID_AUTO},
|
||
! {"",},
|
||
! {"goto", GOTO, NORID},
|
||
! {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",},
|
||
! {"do", DO, NORID},
|
||
! {"",}, {"",}, {"",}, {"",},
|
||
! {"long", TYPESPEC, RID_LONG},
|
||
};
|
||
|
||
#ifdef __GNUC__
|
||
! inline
|
||
#endif
|
||
struct resword *
|
||
is_reserved_word (str, len)
|
||
diff -rcP gcc-2.7.2.1/c-parse.c gcc-2.7.2.1-objc-960906/c-parse.c
|
||
*** gcc-2.7.2.1/c-parse.c Fri Sep 6 11:20:03 1996
|
||
--- gcc-2.7.2.1-objc-960906/c-parse.c Fri Sep 6 10:24:51 1996
|
||
***************
|
||
*** 1,5 ****
|
||
|
||
! /* A Bison parser, made from c-parse.y with Bison version GNU Bison version 1.22
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
--- 1,5 ----
|
||
|
||
! /* A Bison parser, made from c-parse.y with Bison version GNU Bison version 1.24
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
***************
|
||
*** 406,412 ****
|
||
2053, 2056, 2061, 2064
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$illegal.","IDENTIFIER",
|
||
"TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS","SIZEOF",
|
||
"ENUM","STRUCT","UNION","IF","ELSE","WHILE","DO","FOR","SWITCH","CASE","DEFAULT",
|
||
"BREAK","CONTINUE","RETURN","GOTO","ASM_KEYWORD","TYPEOF","ALIGNOF","ATTRIBUTE",
|
||
--- 406,412 ----
|
||
2053, 2056, 2061, 2064
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$undefined.","IDENTIFIER",
|
||
"TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS","SIZEOF",
|
||
"ENUM","STRUCT","UNION","IF","ELSE","WHILE","DO","FOR","SWITCH","CASE","DEFAULT",
|
||
"BREAK","CONTINUE","RETURN","GOTO","ASM_KEYWORD","TYPEOF","ALIGNOF","ATTRIBUTE",
|
||
***************
|
||
*** 1130,1143 ****
|
||
48, 49, 50, 51, 52
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/local/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
|
||
|
||
This program 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 1, or (at your option)
|
||
any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
--- 1130,1143 ----
|
||
48, 49, 50, 51, 52
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
|
||
|
||
This program 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.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
***************
|
||
*** 1149,1154 ****
|
||
--- 1149,1158 ----
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
||
+ /* As a special exception, when this file is copied by Bison into a
|
||
+ Bison output file, you may use that output file without restriction.
|
||
+ This special exception was added by the Free Software Foundation
|
||
+ in version 1.24 of Bison. */
|
||
|
||
#ifndef alloca
|
||
#ifdef __GNUC__
|
||
***************
|
||
*** 1222,1231 ****
|
||
--- 1226,1243 ----
|
||
|
||
#ifdef YYPURE
|
||
#ifdef YYLSP_NEEDED
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
|
||
+ #else
|
||
#define YYLEX yylex(&yylval, &yylloc)
|
||
+ #endif
|
||
+ #else /* not YYLSP_NEEDED */
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, YYLEX_PARAM)
|
||
#else
|
||
#define YYLEX yylex(&yylval)
|
||
#endif
|
||
+ #endif /* not YYLSP_NEEDED */
|
||
#endif
|
||
|
||
/* If nonreentrant, generate the variables here */
|
||
***************
|
||
*** 1273,1286 ****
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
--- 1285,1298 ----
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_memcpy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
***************
|
||
*** 1298,1304 ****
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
--- 1310,1316 ----
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
***************
|
||
*** 1311,1317 ****
|
||
#endif
|
||
#endif
|
||
|
||
! #line 184 "/usr/local/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
--- 1323,1329 ----
|
||
#endif
|
||
#endif
|
||
|
||
! #line 192 "/usr/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
***************
|
||
*** 1444,1455 ****
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
--- 1456,1467 ----
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_memcpy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_memcpy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_memcpy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
***************
|
||
*** 3483,3489 ****
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 480 "/usr/local/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
--- 3495,3501 ----
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 487 "/usr/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
diff -rcP gcc-2.7.2.1/cexp.c gcc-2.7.2.1-objc-960906/cexp.c
|
||
*** gcc-2.7.2.1/cexp.c Fri Sep 6 11:20:17 1996
|
||
--- gcc-2.7.2.1-objc-960906/cexp.c Fri Sep 6 10:25:03 1996
|
||
***************
|
||
*** 1,5 ****
|
||
|
||
! /* A Bison parser, made from cexp.y with Bison version GNU Bison version 1.22
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
--- 1,5 ----
|
||
|
||
! /* A Bison parser, made from cexp.y with Bison version GNU Bison version 1.24
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
***************
|
||
*** 241,247 ****
|
||
332, 335, 337, 340, 343, 345, 347, 352, 354, 367
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$illegal.","INT","CHAR",
|
||
"NAME","ERROR","'?'","':'","','","OR","AND","'|'","'^'","'&'","EQUAL","NOTEQUAL",
|
||
"'<'","'>'","LEQ","GEQ","LSH","RSH","'+'","'-'","'*'","'/'","'%'","UNARY","'!'",
|
||
"'~'","'#'","'('","')'","start","exp1","exp","@1","@2","@3","@4","@5","keywords",
|
||
--- 241,247 ----
|
||
332, 335, 337, 340, 343, 345, 347, 352, 354, 367
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$undefined.","INT","CHAR",
|
||
"NAME","ERROR","'?'","':'","','","OR","AND","'|'","'^'","'&'","EQUAL","NOTEQUAL",
|
||
"'<'","'>'","LEQ","GEQ","LSH","RSH","'+'","'-'","'*'","'/'","'%'","UNARY","'!'",
|
||
"'~'","'#'","'('","')'","start","exp1","exp","@1","@2","@3","@4","@5","keywords",
|
||
***************
|
||
*** 341,354 ****
|
||
26, 27, 23, 24, 25, 26, 27, 0, 9
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/local/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
|
||
|
||
This program 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 1, or (at your option)
|
||
any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
--- 341,354 ----
|
||
26, 27, 23, 24, 25, 26, 27, 0, 9
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
|
||
|
||
This program 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.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
***************
|
||
*** 360,365 ****
|
||
--- 360,369 ----
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
||
+ /* As a special exception, when this file is copied by Bison into a
|
||
+ Bison output file, you may use that output file without restriction.
|
||
+ This special exception was added by the Free Software Foundation
|
||
+ in version 1.24 of Bison. */
|
||
|
||
#ifndef alloca
|
||
#ifdef __GNUC__
|
||
***************
|
||
*** 433,442 ****
|
||
--- 437,454 ----
|
||
|
||
#ifdef YYPURE
|
||
#ifdef YYLSP_NEEDED
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
|
||
+ #else
|
||
#define YYLEX yylex(&yylval, &yylloc)
|
||
+ #endif
|
||
+ #else /* not YYLSP_NEEDED */
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, YYLEX_PARAM)
|
||
#else
|
||
#define YYLEX yylex(&yylval)
|
||
#endif
|
||
+ #endif /* not YYLSP_NEEDED */
|
||
#endif
|
||
|
||
/* If nonreentrant, generate the variables here */
|
||
***************
|
||
*** 484,497 ****
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
--- 496,509 ----
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_memcpy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
***************
|
||
*** 509,515 ****
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
--- 521,527 ----
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
***************
|
||
*** 522,528 ****
|
||
#endif
|
||
#endif
|
||
|
||
! #line 184 "/usr/local/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
--- 534,540 ----
|
||
#endif
|
||
#endif
|
||
|
||
! #line 192 "/usr/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
***************
|
||
*** 655,666 ****
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
--- 667,678 ----
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_memcpy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_memcpy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_memcpy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
***************
|
||
*** 1084,1090 ****
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 480 "/usr/local/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
--- 1096,1102 ----
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 487 "/usr/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
diff -rcP gcc-2.7.2.1/config/i386/next.h gcc-2.7.2.1-objc-960906/config/i386/next.h
|
||
*** gcc-2.7.2.1/config/i386/next.h Fri Sep 6 11:24:42 1996
|
||
--- gcc-2.7.2.1-objc-960906/config/i386/next.h Fri Sep 6 10:29:17 1996
|
||
***************
|
||
*** 224,226 ****
|
||
--- 224,243 ----
|
||
== void_type_node))) ? (SIZE) : 0)
|
||
|
||
/* END Calling Convention CHANGES */
|
||
+
|
||
+ /* OBJC_MAX_STRUCT_BY_VALUE should be defined in the platform specific
|
||
+ configuration file. Some platforms, i386 on NeXTSTEP for example,
|
||
+ pass small structures as values on the stack versus through a
|
||
+ hidden pointer as for larger structures. In order for forwarding
|
||
+ to work properly, the ObjC runtime needs to know when the structure
|
||
+ is being passed by value or not so it can perform the appropriate
|
||
+ forwarding function. The value of OBJC_MAX_STRUCT_BY_VALUE should
|
||
+ be the maximum number of bytes for the size of the structure for it
|
||
+ to be passed as a value, so a value of 8 indicates that a structure
|
||
+ of size 8 gets passed as a value while a structure of size 9 gets
|
||
+ passed as a hidden pointer.
|
||
+
|
||
+ Leave OBJC_MAX_STRUCT_BY_VALUE undefined for platforms that always pass
|
||
+ structures as hidden pointers. */
|
||
+
|
||
+ #define OBJC_MAX_STRUCT_BY_VALUE 7
|
||
diff -rcP gcc-2.7.2.1/configure gcc-2.7.2.1-objc-960906/configure
|
||
*** gcc-2.7.2.1/configure Fri Sep 6 11:20:25 1996
|
||
--- gcc-2.7.2.1-objc-960906/configure Fri Sep 6 10:25:12 1996
|
||
***************
|
||
*** 509,514 ****
|
||
--- 509,516 ----
|
||
truncate_target=
|
||
# Set this if gdb needs a dir command with `dirname $out_file`
|
||
gdb_needs_out_file_path=
|
||
+ # Set this to the Objective-C runtime thread file to compile
|
||
+ objc_thread_file=thr-single
|
||
|
||
case $machine in
|
||
# Support site-specific machine types.
|
||
***************
|
||
*** 597,602 ****
|
||
--- 599,605 ----
|
||
then
|
||
extra_programs=ld.exe
|
||
fi
|
||
+ objc_thread_file=thr-win32
|
||
;;
|
||
arm-*-riscix1.[01]*) # Acorn RISC machine (early versions)
|
||
tm_file=arm/riscix1-1.h
|
||
***************
|
||
*** 874,879 ****
|
||
--- 877,883 ----
|
||
xm_file=i386/xm-next.h
|
||
tmake_file=i386/t-next
|
||
xmake_file=i386/x-next
|
||
+ objc_thread_file=thr-mach
|
||
;;
|
||
i[345]86-sequent-bsd*) # 80386 from Sequent
|
||
cpu_type=i386
|
||
***************
|
||
*** 989,994 ****
|
||
--- 993,999 ----
|
||
fixincludes=Makefile.in #On Linux, the headers are ok already.
|
||
broken_install=yes
|
||
gnu_ld=yes
|
||
+ objc_thread_file=thr-posix
|
||
;;
|
||
i[345]86-*-linux*aout*) # Intel 80386's running Linux
|
||
cpu_type=i386 # with a.out format
|
||
***************
|
||
*** 998,1003 ****
|
||
--- 1003,1009 ----
|
||
fixincludes=Makefile.in #On Linux, the headers are ok already.
|
||
broken_install=yes
|
||
gnu_ld=yes
|
||
+ objc_thread_file=thr-posix
|
||
;;
|
||
i[345]86-*-linux*) # Intel 80386's running Linux
|
||
cpu_type=i386 # with ELF format
|
||
***************
|
||
*** 1010,1015 ****
|
||
--- 1016,1022 ----
|
||
# Don't use it. Linux uses a slightly different one.
|
||
# The real one comes with the Linux C library.
|
||
#extra_parts="crtbegin.o crtend.o"
|
||
+ objc_thread_file=thr-posix
|
||
;;
|
||
i[345]86-go32-msdos | i[345]86-*-go32)
|
||
cpu_type=i386
|
||
***************
|
||
*** 1092,1097 ****
|
||
--- 1099,1105 ----
|
||
xmake_file=x-svr4
|
||
fixincludes=fixinc.svr4
|
||
broken_install=yes
|
||
+ objc_thread_file=thr-solaris
|
||
;;
|
||
i[345]86-*-sysv4*) # Intel 80386's running system V.4
|
||
cpu_type=i386
|
||
***************
|
||
*** 1148,1153 ****
|
||
--- 1156,1162 ----
|
||
then
|
||
extra_programs=ld.exe
|
||
fi
|
||
+ objc_thread_file=thr-win32
|
||
;;
|
||
i860-alliant-*) # Alliant FX/2800
|
||
xm_file=i860/xm-fx2800.h
|
||
***************
|
||
*** 1453,1458 ****
|
||
--- 1462,1468 ----
|
||
tmake_file=m68k/t-next
|
||
xmake_file=m68k/x-next
|
||
extra_headers=math-68881.h
|
||
+ objc_thread_file=thr-mach
|
||
;;
|
||
m68k-sun-sunos3*)
|
||
if [ x$nfp = xyes ]
|
||
***************
|
||
*** 1531,1536 ****
|
||
--- 1541,1547 ----
|
||
fixincludes=Makefile.in #On Linux, the headers are ok already.
|
||
extra_headers=math-68881.h
|
||
gnu_ld=yes
|
||
+ objc_thread_file=thr-posix
|
||
;;
|
||
m68k-*-linux*) # Motorola m68k's running Linux
|
||
xm_file=m68k/xm-linux.h # with ELF format
|
||
***************
|
||
*** 1543,1548 ****
|
||
--- 1554,1560 ----
|
||
# Don't use it. Linux uses a slightly different one.
|
||
# The real one comes with the Linux C library.
|
||
#extra_parts="crtbegin.o crtend.o"
|
||
+ objc_thread_file=thr-posix
|
||
;;
|
||
m88k-dg-dgux*)
|
||
case $machine in
|
||
***************
|
||
*** 1629,1634 ****
|
||
--- 1641,1647 ----
|
||
tmake_file=mips/t-iris6
|
||
# See comment in mips/iris[56].h files.
|
||
use_collect2=yes
|
||
+ objc_thread_file=thr-irix
|
||
;;
|
||
mips-sgi-irix5cross64) # Irix5 host, Irix 6 target, cross64
|
||
tm_file=mips/cross64.h
|
||
***************
|
||
*** 1639,1644 ****
|
||
--- 1652,1658 ----
|
||
tmake_file=mips/t-cross64
|
||
# See comment in mips/iris[56].h files.
|
||
use_collect2=yes
|
||
+ objc_thread_file=thr-irix
|
||
;;
|
||
mips-sgi-irix5*) # SGI System V.4., IRIX 5
|
||
if [ x$gas = xyes ]
|
||
***************
|
||
*** 1660,1665 ****
|
||
--- 1674,1680 ----
|
||
tmake_file=mips/t-mips-gas
|
||
# See comment in mips/iris5.h file.
|
||
use_collect2=yes
|
||
+ objc_thread_file=thr-irix
|
||
;;
|
||
mips-sgi-irix4loser*) # Mostly like a MIPS.
|
||
if [ x$stabs = xyes ]; then
|
||
***************
|
||
*** 1680,1685 ****
|
||
--- 1695,1701 ----
|
||
then
|
||
use_collect2=yes
|
||
fi
|
||
+ objc_thread_file=thr-irix
|
||
;;
|
||
mips-sgi-irix4*) # Mostly like a MIPS.
|
||
if [ x$stabs = xyes ]; then
|
||
***************
|
||
*** 1700,1705 ****
|
||
--- 1716,1722 ----
|
||
then
|
||
use_collect2=yes
|
||
fi
|
||
+ objc_thread_file=thr-irix
|
||
;;
|
||
mips-sgi-*) # Mostly like a MIPS.
|
||
if [ x$stabs = xyes ]; then
|
||
***************
|
||
*** 2280,2285 ****
|
||
--- 2297,2303 ----
|
||
extra_parts="crt1.o crti.o crtn.o gmon.o crtbegin.o crtend.o"
|
||
fixincludes=fixinc.svr4
|
||
broken_install=yes
|
||
+ objc_thread_file=thr-solaris
|
||
;;
|
||
sparc-*-sunos4.0*)
|
||
tm_file=sparc/sunos4.h
|
||
***************
|
||
*** 2490,2495 ****
|
||
--- 2508,2518 ----
|
||
then tmake_file=$cpu_type/t-$cpu_type
|
||
fi
|
||
|
||
+ if [ x$objc_thread_file = x ]
|
||
+ then objc_thread_file=thr-single
|
||
+ fi
|
||
+ echo "Using \`$objc_thread_file' for Objective-C Runtime thread file."
|
||
+
|
||
# Say what files are being used for the output code and MD file.
|
||
echo "Using \`$srcdir/config/$out_file' to output insns."
|
||
echo "Using \`$srcdir/config/$md_file' as machine description file."
|
||
***************
|
||
*** 2982,2987 ****
|
||
--- 3005,3011 ----
|
||
echo "s|^build_xm_file=.*$|build_xm_file=${srcdir}/config/${build_xm_file}|" >> Makefile.sed
|
||
echo "s|^lang_specs_files=.*$|lang_specs_files=${lang_specs_files}|" >> Makefile.sed
|
||
echo "s|^lang_options_files=.*$|lang_options_files=${lang_options_files}|" >> Makefile.sed
|
||
+ echo "s|^OBJC_THREAD_FILE=.*$|OBJC_THREAD_FILE=${objc_thread_file}|" >> Makefile.sed
|
||
echo "s|^prefix[ ]*=.*|prefix = $prefix|" >> Makefile.sed
|
||
echo "s|^gxx_include_dir[ ]*=.*|gxx_include_dir = $gxx_include_dir|" >> Makefile.sed
|
||
echo "s|^local_prefix[ ]*=.*|local_prefix = $local_prefix|" >> Makefile.sed
|
||
diff -rcP gcc-2.7.2.1/cp/parse.c gcc-2.7.2.1-objc-960906/cp/parse.c
|
||
*** gcc-2.7.2.1/cp/parse.c Fri Sep 6 11:28:34 1996
|
||
--- gcc-2.7.2.1-objc-960906/cp/parse.c Fri Sep 6 10:33:05 1996
|
||
***************
|
||
*** 1,5 ****
|
||
|
||
! /* A Bison parser, made from parse.y with Bison version GNU Bison version 1.22
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
--- 1,5 ----
|
||
|
||
! /* A Bison parser, made from parse.y with Bison version GNU Bison version 1.24
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
***************
|
||
*** 669,675 ****
|
||
3875, 3877, 3879, 3881, 3883, 3885, 3887, 3890, 3892
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$illegal.","IDENTIFIER",
|
||
"TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS","SIZEOF",
|
||
"ENUM","IF","ELSE","WHILE","DO","FOR","SWITCH","CASE","DEFAULT","BREAK","CONTINUE",
|
||
"RETURN","GOTO","ASM_KEYWORD","GCC_ASM_KEYWORD","TYPEOF","ALIGNOF","SIGOF","ATTRIBUTE",
|
||
--- 669,675 ----
|
||
3875, 3877, 3879, 3881, 3883, 3885, 3887, 3890, 3892
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$undefined.","IDENTIFIER",
|
||
"TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS","SIZEOF",
|
||
"ENUM","IF","ELSE","WHILE","DO","FOR","SWITCH","CASE","DEFAULT","BREAK","CONTINUE",
|
||
"RETURN","GOTO","ASM_KEYWORD","GCC_ASM_KEYWORD","TYPEOF","ALIGNOF","SIGOF","ATTRIBUTE",
|
||
***************
|
||
*** 3157,3170 ****
|
||
80, 81, 82
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/local/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
|
||
|
||
This program 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 1, or (at your option)
|
||
any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
--- 3157,3170 ----
|
||
80, 81, 82
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
|
||
|
||
This program 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.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
***************
|
||
*** 3176,3181 ****
|
||
--- 3176,3185 ----
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
||
+ /* As a special exception, when this file is copied by Bison into a
|
||
+ Bison output file, you may use that output file without restriction.
|
||
+ This special exception was added by the Free Software Foundation
|
||
+ in version 1.24 of Bison. */
|
||
|
||
#ifndef alloca
|
||
#ifdef __GNUC__
|
||
***************
|
||
*** 3249,3258 ****
|
||
--- 3253,3270 ----
|
||
|
||
#ifdef YYPURE
|
||
#ifdef YYLSP_NEEDED
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
|
||
+ #else
|
||
#define YYLEX yylex(&yylval, &yylloc)
|
||
+ #endif
|
||
+ #else /* not YYLSP_NEEDED */
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, YYLEX_PARAM)
|
||
#else
|
||
#define YYLEX yylex(&yylval)
|
||
#endif
|
||
+ #endif /* not YYLSP_NEEDED */
|
||
#endif
|
||
|
||
/* If nonreentrant, generate the variables here */
|
||
***************
|
||
*** 3300,3313 ****
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
--- 3312,3325 ----
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_memcpy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
***************
|
||
*** 3325,3331 ****
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
--- 3337,3343 ----
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
***************
|
||
*** 3338,3344 ****
|
||
#endif
|
||
#endif
|
||
|
||
! #line 184 "/usr/local/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
--- 3350,3356 ----
|
||
#endif
|
||
#endif
|
||
|
||
! #line 192 "/usr/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
***************
|
||
*** 3471,3482 ****
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
--- 3483,3494 ----
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_memcpy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_memcpy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_memcpy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
***************
|
||
*** 7546,7552 ****
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 480 "/usr/local/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
--- 7558,7564 ----
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 487 "/usr/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
diff -rcP gcc-2.7.2.1/cpp.info gcc-2.7.2.1-objc-960906/cpp.info
|
||
*** gcc-2.7.2.1/cpp.info Fri Sep 6 11:20:29 1996
|
||
--- gcc-2.7.2.1-objc-960906/cpp.info Fri Sep 6 10:25:16 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file cpp.info, produced by Makeinfo-1.55 from the input
|
||
file cpp.texi.
|
||
|
||
This file documents the GNU C Preprocessor.
|
||
--- 1,4 ----
|
||
! This is Info file cpp.info, produced by Makeinfo-1.63 from the input
|
||
file cpp.texi.
|
||
|
||
This file documents the GNU C Preprocessor.
|
||
diff -rcP gcc-2.7.2.1/cpp.info-1 gcc-2.7.2.1-objc-960906/cpp.info-1
|
||
*** gcc-2.7.2.1/cpp.info-1 Fri Sep 6 11:20:29 1996
|
||
--- gcc-2.7.2.1-objc-960906/cpp.info-1 Fri Sep 6 10:25:17 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file cpp.info, produced by Makeinfo-1.55 from the input
|
||
file cpp.texi.
|
||
|
||
This file documents the GNU C Preprocessor.
|
||
--- 1,4 ----
|
||
! This is Info file cpp.info, produced by Makeinfo-1.63 from the input
|
||
file cpp.texi.
|
||
|
||
This file documents the GNU C Preprocessor.
|
||
diff -rcP gcc-2.7.2.1/cpp.info-2 gcc-2.7.2.1-objc-960906/cpp.info-2
|
||
*** gcc-2.7.2.1/cpp.info-2 Fri Sep 6 11:20:30 1996
|
||
--- gcc-2.7.2.1-objc-960906/cpp.info-2 Fri Sep 6 10:25:18 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file cpp.info, produced by Makeinfo-1.55 from the input
|
||
file cpp.texi.
|
||
|
||
This file documents the GNU C Preprocessor.
|
||
--- 1,4 ----
|
||
! This is Info file cpp.info, produced by Makeinfo-1.63 from the input
|
||
file cpp.texi.
|
||
|
||
This file documents the GNU C Preprocessor.
|
||
diff -rcP gcc-2.7.2.1/cpp.info-3 gcc-2.7.2.1-objc-960906/cpp.info-3
|
||
*** gcc-2.7.2.1/cpp.info-3 Fri Sep 6 11:20:31 1996
|
||
--- gcc-2.7.2.1-objc-960906/cpp.info-3 Fri Sep 6 10:25:18 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file cpp.info, produced by Makeinfo-1.55 from the input
|
||
file cpp.texi.
|
||
|
||
This file documents the GNU C Preprocessor.
|
||
--- 1,4 ----
|
||
! This is Info file cpp.info, produced by Makeinfo-1.63 from the input
|
||
file cpp.texi.
|
||
|
||
This file documents the GNU C Preprocessor.
|
||
***************
|
||
*** 430,466 ****
|
||
* -Wcomment: Invocation.
|
||
* -Wtraditional: Invocation.
|
||
* -Wtrigraphs: Invocation.
|
||
- * BSD: Nonstandard Predefined.
|
||
- * defined: Conditionals-Macros.
|
||
- * M68020: Nonstandard Predefined.
|
||
- * m68k: Nonstandard Predefined.
|
||
- * mc68000: Nonstandard Predefined.
|
||
- * ns32000: Nonstandard Predefined.
|
||
- * pyr: Nonstandard Predefined.
|
||
- * sequent: Nonstandard Predefined.
|
||
- * sun: Nonstandard Predefined.
|
||
- * system header files: Header Uses.
|
||
- * unix: Nonstandard Predefined.
|
||
- * vax: Nonstandard Predefined.
|
||
- * _AM29000: Nonstandard Predefined.
|
||
- * _AM29K: Nonstandard Predefined.
|
||
* __BASE_FILE__: Standard Predefined.
|
||
* __CHAR_UNSIGNED__: Standard Predefined.
|
||
* __cplusplus: Standard Predefined.
|
||
* __DATE__: Standard Predefined.
|
||
* __FILE__: Standard Predefined.
|
||
- * __GNUC_MINOR__: Standard Predefined.
|
||
* __GNUC__: Standard Predefined.
|
||
* __GNUG__: Standard Predefined.
|
||
* __INCLUDE_LEVEL_: Standard Predefined.
|
||
* __LINE__: Standard Predefined.
|
||
* __OPTIMIZE__: Standard Predefined.
|
||
* __REGISTER_PREFIX__: Standard Predefined.
|
||
- * __STDC_VERSION__: Standard Predefined.
|
||
* __STDC__: Standard Predefined.
|
||
* __STRICT_ANSI__: Standard Predefined.
|
||
* __TIME__: Standard Predefined.
|
||
* __USER_LABEL_PREFIX__: Standard Predefined.
|
||
* __VERSION__: Standard Predefined.
|
||
|
||
|
||
--- 430,466 ----
|
||
* -Wcomment: Invocation.
|
||
* -Wtraditional: Invocation.
|
||
* -Wtrigraphs: Invocation.
|
||
* __BASE_FILE__: Standard Predefined.
|
||
* __CHAR_UNSIGNED__: Standard Predefined.
|
||
* __cplusplus: Standard Predefined.
|
||
* __DATE__: Standard Predefined.
|
||
* __FILE__: Standard Predefined.
|
||
* __GNUC__: Standard Predefined.
|
||
+ * __GNUC_MINOR__: Standard Predefined.
|
||
* __GNUG__: Standard Predefined.
|
||
* __INCLUDE_LEVEL_: Standard Predefined.
|
||
* __LINE__: Standard Predefined.
|
||
* __OPTIMIZE__: Standard Predefined.
|
||
* __REGISTER_PREFIX__: Standard Predefined.
|
||
* __STDC__: Standard Predefined.
|
||
+ * __STDC_VERSION__: Standard Predefined.
|
||
* __STRICT_ANSI__: Standard Predefined.
|
||
* __TIME__: Standard Predefined.
|
||
* __USER_LABEL_PREFIX__: Standard Predefined.
|
||
* __VERSION__: Standard Predefined.
|
||
+ * _AM29000: Nonstandard Predefined.
|
||
+ * _AM29K: Nonstandard Predefined.
|
||
+ * BSD: Nonstandard Predefined.
|
||
+ * defined: Conditionals-Macros.
|
||
+ * M68020: Nonstandard Predefined.
|
||
+ * m68k: Nonstandard Predefined.
|
||
+ * mc68000: Nonstandard Predefined.
|
||
+ * ns32000: Nonstandard Predefined.
|
||
+ * pyr: Nonstandard Predefined.
|
||
+ * sequent: Nonstandard Predefined.
|
||
+ * sun: Nonstandard Predefined.
|
||
+ * system header files: Header Uses.
|
||
+ * unix: Nonstandard Predefined.
|
||
+ * vax: Nonstandard Predefined.
|
||
|
||
|
||
diff -rcP gcc-2.7.2.1/expr.c gcc-2.7.2.1-objc-960906/expr.c
|
||
*** gcc-2.7.2.1/expr.c Fri Sep 6 11:20:58 1996
|
||
--- gcc-2.7.2.1-objc-960906/expr.c Fri Sep 6 10:25:42 1996
|
||
***************
|
||
*** 8290,8296 ****
|
||
--- 8290,8304 ----
|
||
|
||
/* Push a new argument block and copy the arguments. */
|
||
do_pending_stack_adjust ();
|
||
+
|
||
+ /* For now use SAVE_NONLOCAL on PPC architectures as it does not
|
||
+ have SAVE_BLOCK. This should possibly be changed to check the
|
||
+ insn-flag HAVE_save_stack_block? */
|
||
+ #ifdef __PPC__
|
||
+ emit_stack_save (SAVE_NONLOCAL, &old_stack_level, NULL_RTX);
|
||
+ #else
|
||
emit_stack_save (SAVE_BLOCK, &old_stack_level, NULL_RTX);
|
||
+ #endif /* __PPC__ */
|
||
|
||
/* Push a block of memory onto the stack to store the memory arguments.
|
||
Save the address in a register, and copy the memory arguments. ??? I
|
||
***************
|
||
*** 8416,8422 ****
|
||
--- 8424,8437 ----
|
||
CALL_INSN_FUNCTION_USAGE (call_insn) = call_fusage;
|
||
|
||
/* Restore the stack. */
|
||
+ /* For now use SAVE_NONLOCAL on PPC architectures as it does not
|
||
+ have SAVE_BLOCK. This should possibly be changed to check the
|
||
+ insn-flag HAVE_save_stack_block? */
|
||
+ #ifdef __PPC__
|
||
+ emit_stack_restore (SAVE_NONLOCAL, old_stack_level, NULL_RTX);
|
||
+ #else
|
||
emit_stack_restore (SAVE_BLOCK, old_stack_level, NULL_RTX);
|
||
+ #endif /* __PPC__ */
|
||
|
||
/* Return the address of the result block. */
|
||
return copy_addr_to_reg (XEXP (result, 0));
|
||
diff -rcP gcc-2.7.2.1/gcc.info gcc-2.7.2.1-objc-960906/gcc.info
|
||
*** gcc-2.7.2.1/gcc.info Fri Sep 6 11:21:20 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info Fri Sep 6 10:26:03 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 32,61 ****
|
||
|
||
Indirect:
|
||
gcc.info-1: 1382
|
||
! gcc.info-2: 42854
|
||
! gcc.info-3: 80578
|
||
! gcc.info-4: 127608
|
||
! gcc.info-5: 173792
|
||
! gcc.info-6: 214726
|
||
! gcc.info-7: 235436
|
||
! gcc.info-8: 285158
|
||
! gcc.info-9: 333642
|
||
! gcc.info-10: 382691
|
||
! gcc.info-11: 419654
|
||
! gcc.info-12: 468472
|
||
! gcc.info-13: 517503
|
||
! gcc.info-14: 564845
|
||
! gcc.info-15: 604398
|
||
! gcc.info-16: 654371
|
||
! gcc.info-17: 703324
|
||
! gcc.info-18: 751502
|
||
! gcc.info-19: 797360
|
||
! gcc.info-20: 846162
|
||
! gcc.info-21: 890260
|
||
! gcc.info-22: 933466
|
||
! gcc.info-23: 982355
|
||
! gcc.info-24: 1032258
|
||
! gcc.info-25: 1067513
|
||
|
||
Tag Table:
|
||
(Indirect)
|
||
--- 32,61 ----
|
||
|
||
Indirect:
|
||
gcc.info-1: 1382
|
||
! gcc.info-2: 43097
|
||
! gcc.info-3: 80821
|
||
! gcc.info-4: 127851
|
||
! gcc.info-5: 174035
|
||
! gcc.info-6: 214969
|
||
! gcc.info-7: 237409
|
||
! gcc.info-8: 286095
|
||
! gcc.info-9: 334579
|
||
! gcc.info-10: 383628
|
||
! gcc.info-11: 420591
|
||
! gcc.info-12: 469430
|
||
! gcc.info-13: 518461
|
||
! gcc.info-14: 565803
|
||
! gcc.info-15: 605356
|
||
! gcc.info-16: 655329
|
||
! gcc.info-17: 704282
|
||
! gcc.info-18: 752460
|
||
! gcc.info-19: 798318
|
||
! gcc.info-20: 847120
|
||
! gcc.info-21: 891218
|
||
! gcc.info-22: 934424
|
||
! gcc.info-23: 983313
|
||
! gcc.info-24: 1033216
|
||
! gcc.info-25: 1068471
|
||
|
||
Tag Table:
|
||
(Indirect)
|
||
***************
|
||
*** 64,297 ****
|
||
Node: Contributors22249
|
||
Node: Funding27395
|
||
Node: Look and Feel29892
|
||
! Node: G++ and GCC37258
|
||
! Node: Invoking GCC39475
|
||
! Node: Option Summary42854
|
||
! Node: Overall Options53305
|
||
! Node: Invoking G++57868
|
||
! Node: C Dialect Options59742
|
||
! Node: C++ Dialect Options69842
|
||
! Node: Warning Options80578
|
||
! Node: Debugging Options95513
|
||
! Node: Optimize Options105094
|
||
! Node: Preprocessor Options115596
|
||
! Node: Assembler Options122059
|
||
! Node: Link Options122426
|
||
! Node: Directory Options127608
|
||
! Node: Target Options131100
|
||
! Node: Submodel Options134757
|
||
! Node: M680x0 Options136138
|
||
! Node: VAX Options139647
|
||
! Node: SPARC Options140182
|
||
! Node: Convex Options146602
|
||
! Node: AMD29K Options148783
|
||
! Node: ARM Options151814
|
||
! Node: M88K Options153231
|
||
! Node: RS/6000 and PowerPC Options161178
|
||
! Node: RT Options172088
|
||
! Node: MIPS Options173792
|
||
! Node: i386 Options181418
|
||
! Node: HPPA Options186857
|
||
! Node: Intel 960 Options189953
|
||
! Node: DEC Alpha Options192563
|
||
! Node: Clipper Options194235
|
||
! Node: H8/300 Options194634
|
||
! Node: System V Options195079
|
||
! Node: Code Gen Options195765
|
||
! Node: Environment Variables204274
|
||
! Node: Running Protoize208497
|
||
! Node: Installation214726
|
||
! Node: Configurations235436
|
||
! Node: Other Dir271347
|
||
! Node: Cross-Compiler273063
|
||
! Node: Steps of Cross274894
|
||
! Node: Configure Cross276012
|
||
! Node: Tools and Libraries276649
|
||
! Node: Cross Runtime279092
|
||
! Node: Cross Headers283173
|
||
! Node: Build Cross285158
|
||
! Node: Sun Install287034
|
||
! Node: VMS Install288166
|
||
! Node: Collect2298095
|
||
! Node: Header Dirs300804
|
||
! Node: C Extensions302218
|
||
! Node: Statement Exprs305497
|
||
! Node: Local Labels307391
|
||
! Node: Labels as Values309453
|
||
! Node: Nested Functions311318
|
||
! Node: Constructing Calls315174
|
||
! Node: Naming Types317231
|
||
! Node: Typeof318325
|
||
! Node: Lvalues320190
|
||
! Node: Conditionals322630
|
||
! Node: Long Long323521
|
||
! Node: Complex324965
|
||
! Node: Zero Length326827
|
||
! Node: Variable Length327501
|
||
! Node: Macro Varargs330026
|
||
! Node: Subscripting332129
|
||
! Node: Pointer Arith332612
|
||
! Node: Initializers333177
|
||
! Node: Constructors333642
|
||
! Node: Labeled Elements335336
|
||
! Node: Case Ranges337965
|
||
! Node: Cast to Union338646
|
||
! Node: Function Attributes339724
|
||
! Node: Function Prototypes348987
|
||
! Node: C++ Comments350786
|
||
! Node: Dollar Signs351322
|
||
! Node: Character Escapes352102
|
||
! Node: Alignment352383
|
||
! Node: Variable Attributes353855
|
||
! Node: Type Attributes361763
|
||
! Node: Inline368282
|
||
! Node: Extended Asm372159
|
||
! Node: Asm Labels382691
|
||
! Node: Explicit Reg Vars384010
|
||
! Node: Global Reg Vars385258
|
||
! Node: Local Reg Vars389823
|
||
! Node: Alternate Keywords391415
|
||
! Node: Incomplete Enums392817
|
||
! Node: Function Names393573
|
||
! Node: C++ Extensions394824
|
||
! Node: Naming Results396061
|
||
! Node: Min and Max399375
|
||
! Node: Destructors and Goto400825
|
||
! Node: C++ Interface401375
|
||
! Node: Template Instantiation406598
|
||
! Node: C++ Signatures412330
|
||
! Node: Trouble416674
|
||
! Node: Actual Bugs418385
|
||
! Node: Installation Problems419654
|
||
! Node: Cross-Compiler Problems433440
|
||
! Node: Interoperation434911
|
||
! Node: External Bugs448275
|
||
! Node: Incompatibilities450407
|
||
! Node: Fixed Headers458957
|
||
! Node: Standard Libraries461299
|
||
! Node: Disappointments462546
|
||
! Node: C++ Misunderstandings466771
|
||
! Node: Static Definitions467418
|
||
! Node: Temporaries468472
|
||
! Node: Protoize Caveats470676
|
||
! Node: Non-bugs474632
|
||
! Node: Warnings and Errors483592
|
||
! Node: Bugs485362
|
||
! Node: Bug Criteria486722
|
||
! Node: Bug Lists489152
|
||
! Node: Bug Reporting490545
|
||
! Node: Sending Patches502963
|
||
! Node: Service508350
|
||
! Node: VMS508911
|
||
! Node: Include Files and VMS509304
|
||
! Node: Global Declarations513194
|
||
! Node: VMS Misc517503
|
||
! Node: Portability521829
|
||
! Node: Interface523592
|
||
! Node: Passes528225
|
||
! Node: RTL545568
|
||
! Node: RTL Objects547456
|
||
! Node: Accessors550500
|
||
! Node: Flags555826
|
||
! Node: Machine Modes564845
|
||
! Node: Constants572479
|
||
! Node: Regs and Memory577667
|
||
! Node: Arithmetic589377
|
||
! Node: Comparisons595275
|
||
! Node: Bit Fields599337
|
||
! Node: Conversions600701
|
||
! Node: RTL Declarations603589
|
||
! Node: Side Effects604398
|
||
! Node: Incdec616945
|
||
! Node: Assembler619461
|
||
! Node: Insns620983
|
||
! Node: Calls641836
|
||
! Node: Sharing644431
|
||
! Node: Reading RTL647507
|
||
! Node: Machine Desc648446
|
||
! Node: Patterns650299
|
||
! Node: Example653243
|
||
! Node: RTL Template654371
|
||
! Node: Output Template666569
|
||
! Node: Output Statement670530
|
||
! Node: Constraints674243
|
||
! Node: Simple Constraints675246
|
||
! Node: Multi-Alternative686679
|
||
! Node: Class Preferences689515
|
||
! Node: Modifiers690395
|
||
! Node: Machine Constraints693555
|
||
! Node: No Constraints702203
|
||
! Node: Standard Names703324
|
||
! Node: Pattern Ordering731232
|
||
! Node: Dependent Patterns732458
|
||
! Node: Jump Patterns735273
|
||
! Node: Insn Canonicalizations741089
|
||
! Node: Peephole Definitions744584
|
||
! Node: Expander Definitions751502
|
||
! Node: Insn Splitting758948
|
||
! Node: Insn Attributes765962
|
||
! Node: Defining Attributes767009
|
||
! Node: Expressions769021
|
||
! Node: Tagging Insns775333
|
||
! Node: Attr Example779696
|
||
! Node: Insn Lengths782072
|
||
! Node: Constant Attributes785436
|
||
! Node: Delay Slots786596
|
||
! Node: Function Units789807
|
||
! Node: Target Macros795477
|
||
! Node: Driver797360
|
||
! Node: Run-time Target809090
|
||
! Node: Storage Layout814977
|
||
! Node: Type Layout828925
|
||
! Node: Registers835348
|
||
! Node: Register Basics836328
|
||
! Node: Allocation Order840365
|
||
! Node: Values in Registers841783
|
||
! Node: Leaf Functions846162
|
||
! Node: Stack Registers848637
|
||
! Node: Obsolete Register Macros849470
|
||
! Node: Register Classes852165
|
||
! Node: Stack and Calling871700
|
||
! Node: Frame Layout872136
|
||
! Node: Frame Registers875576
|
||
! Node: Elimination879386
|
||
! Node: Stack Arguments883642
|
||
! Node: Register Arguments890260
|
||
! Node: Scalar Return898935
|
||
! Node: Aggregate Return902898
|
||
! Node: Caller Saves906613
|
||
! Node: Function Entry907763
|
||
! Node: Profiling916691
|
||
! Node: Varargs919595
|
||
! Node: Trampolines927004
|
||
! Node: Library Calls933466
|
||
! Node: Addressing Modes941524
|
||
! Node: Condition Code949112
|
||
! Node: Costs955311
|
||
! Node: Sections963690
|
||
! Node: PIC968479
|
||
! Node: Assembler Format971189
|
||
! Node: File Framework972194
|
||
! Node: Data Output976431
|
||
! Node: Uninitialized Data982355
|
||
! Node: Label Output985062
|
||
! Node: Initialization994456
|
||
! Node: Macros for Initialization1000599
|
||
! Node: Instruction Output1005196
|
||
! Node: Dispatch Tables1013191
|
||
! Node: Alignment Output1015568
|
||
! Node: Debugging Info1017308
|
||
! Node: All Debuggers1017917
|
||
! Node: DBX Options1020331
|
||
! Node: DBX Hooks1025216
|
||
! Node: File Names and DBX1028555
|
||
! Node: SDB and DWARF1030528
|
||
! Node: Cross-compilation1032258
|
||
! Node: Misc1038705
|
||
! Node: Config1055831
|
||
! Node: Fragments1063276
|
||
! Node: Target Fragment1063873
|
||
! Node: Host Fragment1066911
|
||
! Node: Index1067513
|
||
|
||
End Tag Table
|
||
--- 64,297 ----
|
||
Node: Contributors22249
|
||
Node: Funding27395
|
||
Node: Look and Feel29892
|
||
! Node: G++ and GCC37501
|
||
! Node: Invoking GCC39718
|
||
! Node: Option Summary43097
|
||
! Node: Overall Options53548
|
||
! Node: Invoking G++58111
|
||
! Node: C Dialect Options59985
|
||
! Node: C++ Dialect Options70085
|
||
! Node: Warning Options80821
|
||
! Node: Debugging Options95756
|
||
! Node: Optimize Options105337
|
||
! Node: Preprocessor Options115839
|
||
! Node: Assembler Options122302
|
||
! Node: Link Options122669
|
||
! Node: Directory Options127851
|
||
! Node: Target Options131343
|
||
! Node: Submodel Options135000
|
||
! Node: M680x0 Options136381
|
||
! Node: VAX Options139890
|
||
! Node: SPARC Options140425
|
||
! Node: Convex Options146845
|
||
! Node: AMD29K Options149026
|
||
! Node: ARM Options152057
|
||
! Node: M88K Options153474
|
||
! Node: RS/6000 and PowerPC Options161421
|
||
! Node: RT Options172331
|
||
! Node: MIPS Options174035
|
||
! Node: i386 Options181661
|
||
! Node: HPPA Options187100
|
||
! Node: Intel 960 Options190196
|
||
! Node: DEC Alpha Options192806
|
||
! Node: Clipper Options194478
|
||
! Node: H8/300 Options194877
|
||
! Node: System V Options195322
|
||
! Node: Code Gen Options196008
|
||
! Node: Environment Variables204517
|
||
! Node: Running Protoize208740
|
||
! Node: Installation214969
|
||
! Node: Configurations237409
|
||
! Node: Other Dir272284
|
||
! Node: Cross-Compiler274000
|
||
! Node: Steps of Cross275831
|
||
! Node: Configure Cross276949
|
||
! Node: Tools and Libraries277586
|
||
! Node: Cross Runtime280029
|
||
! Node: Cross Headers284110
|
||
! Node: Build Cross286095
|
||
! Node: Sun Install287971
|
||
! Node: VMS Install289103
|
||
! Node: Collect2299032
|
||
! Node: Header Dirs301741
|
||
! Node: C Extensions303155
|
||
! Node: Statement Exprs306434
|
||
! Node: Local Labels308328
|
||
! Node: Labels as Values310390
|
||
! Node: Nested Functions312255
|
||
! Node: Constructing Calls316111
|
||
! Node: Naming Types318168
|
||
! Node: Typeof319262
|
||
! Node: Lvalues321127
|
||
! Node: Conditionals323567
|
||
! Node: Long Long324458
|
||
! Node: Complex325902
|
||
! Node: Zero Length327764
|
||
! Node: Variable Length328438
|
||
! Node: Macro Varargs330963
|
||
! Node: Subscripting333066
|
||
! Node: Pointer Arith333549
|
||
! Node: Initializers334114
|
||
! Node: Constructors334579
|
||
! Node: Labeled Elements336273
|
||
! Node: Case Ranges338902
|
||
! Node: Cast to Union339583
|
||
! Node: Function Attributes340661
|
||
! Node: Function Prototypes349924
|
||
! Node: C++ Comments351723
|
||
! Node: Dollar Signs352259
|
||
! Node: Character Escapes353039
|
||
! Node: Alignment353320
|
||
! Node: Variable Attributes354792
|
||
! Node: Type Attributes362700
|
||
! Node: Inline369219
|
||
! Node: Extended Asm373096
|
||
! Node: Asm Labels383628
|
||
! Node: Explicit Reg Vars384947
|
||
! Node: Global Reg Vars386195
|
||
! Node: Local Reg Vars390760
|
||
! Node: Alternate Keywords392352
|
||
! Node: Incomplete Enums393754
|
||
! Node: Function Names394510
|
||
! Node: C++ Extensions395761
|
||
! Node: Naming Results396998
|
||
! Node: Min and Max400312
|
||
! Node: Destructors and Goto401762
|
||
! Node: C++ Interface402312
|
||
! Node: Template Instantiation407535
|
||
! Node: C++ Signatures413267
|
||
! Node: Trouble417611
|
||
! Node: Actual Bugs419322
|
||
! Node: Installation Problems420591
|
||
! Node: Cross-Compiler Problems434398
|
||
! Node: Interoperation435869
|
||
! Node: External Bugs449233
|
||
! Node: Incompatibilities451365
|
||
! Node: Fixed Headers459915
|
||
! Node: Standard Libraries462257
|
||
! Node: Disappointments463504
|
||
! Node: C++ Misunderstandings467729
|
||
! Node: Static Definitions468376
|
||
! Node: Temporaries469430
|
||
! Node: Protoize Caveats471634
|
||
! Node: Non-bugs475590
|
||
! Node: Warnings and Errors484550
|
||
! Node: Bugs486320
|
||
! Node: Bug Criteria487680
|
||
! Node: Bug Lists490110
|
||
! Node: Bug Reporting491503
|
||
! Node: Sending Patches503921
|
||
! Node: Service509308
|
||
! Node: VMS509869
|
||
! Node: Include Files and VMS510262
|
||
! Node: Global Declarations514152
|
||
! Node: VMS Misc518461
|
||
! Node: Portability522787
|
||
! Node: Interface524550
|
||
! Node: Passes529183
|
||
! Node: RTL546526
|
||
! Node: RTL Objects548414
|
||
! Node: Accessors551458
|
||
! Node: Flags556784
|
||
! Node: Machine Modes565803
|
||
! Node: Constants573437
|
||
! Node: Regs and Memory578625
|
||
! Node: Arithmetic590335
|
||
! Node: Comparisons596233
|
||
! Node: Bit Fields600295
|
||
! Node: Conversions601659
|
||
! Node: RTL Declarations604547
|
||
! Node: Side Effects605356
|
||
! Node: Incdec617903
|
||
! Node: Assembler620419
|
||
! Node: Insns621941
|
||
! Node: Calls642794
|
||
! Node: Sharing645389
|
||
! Node: Reading RTL648465
|
||
! Node: Machine Desc649404
|
||
! Node: Patterns651257
|
||
! Node: Example654201
|
||
! Node: RTL Template655329
|
||
! Node: Output Template667527
|
||
! Node: Output Statement671488
|
||
! Node: Constraints675201
|
||
! Node: Simple Constraints676204
|
||
! Node: Multi-Alternative687637
|
||
! Node: Class Preferences690473
|
||
! Node: Modifiers691353
|
||
! Node: Machine Constraints694513
|
||
! Node: No Constraints703161
|
||
! Node: Standard Names704282
|
||
! Node: Pattern Ordering732190
|
||
! Node: Dependent Patterns733416
|
||
! Node: Jump Patterns736231
|
||
! Node: Insn Canonicalizations742047
|
||
! Node: Peephole Definitions745542
|
||
! Node: Expander Definitions752460
|
||
! Node: Insn Splitting759906
|
||
! Node: Insn Attributes766920
|
||
! Node: Defining Attributes767967
|
||
! Node: Expressions769979
|
||
! Node: Tagging Insns776291
|
||
! Node: Attr Example780654
|
||
! Node: Insn Lengths783030
|
||
! Node: Constant Attributes786394
|
||
! Node: Delay Slots787554
|
||
! Node: Function Units790765
|
||
! Node: Target Macros796435
|
||
! Node: Driver798318
|
||
! Node: Run-time Target810048
|
||
! Node: Storage Layout815935
|
||
! Node: Type Layout829883
|
||
! Node: Registers836306
|
||
! Node: Register Basics837286
|
||
! Node: Allocation Order841323
|
||
! Node: Values in Registers842741
|
||
! Node: Leaf Functions847120
|
||
! Node: Stack Registers849595
|
||
! Node: Obsolete Register Macros850428
|
||
! Node: Register Classes853123
|
||
! Node: Stack and Calling872658
|
||
! Node: Frame Layout873094
|
||
! Node: Frame Registers876534
|
||
! Node: Elimination880344
|
||
! Node: Stack Arguments884600
|
||
! Node: Register Arguments891218
|
||
! Node: Scalar Return899893
|
||
! Node: Aggregate Return903856
|
||
! Node: Caller Saves907571
|
||
! Node: Function Entry908721
|
||
! Node: Profiling917649
|
||
! Node: Varargs920553
|
||
! Node: Trampolines927962
|
||
! Node: Library Calls934424
|
||
! Node: Addressing Modes942482
|
||
! Node: Condition Code950070
|
||
! Node: Costs956269
|
||
! Node: Sections964648
|
||
! Node: PIC969437
|
||
! Node: Assembler Format972147
|
||
! Node: File Framework973152
|
||
! Node: Data Output977389
|
||
! Node: Uninitialized Data983313
|
||
! Node: Label Output986020
|
||
! Node: Initialization995414
|
||
! Node: Macros for Initialization1001557
|
||
! Node: Instruction Output1006154
|
||
! Node: Dispatch Tables1014149
|
||
! Node: Alignment Output1016526
|
||
! Node: Debugging Info1018266
|
||
! Node: All Debuggers1018875
|
||
! Node: DBX Options1021289
|
||
! Node: DBX Hooks1026174
|
||
! Node: File Names and DBX1029513
|
||
! Node: SDB and DWARF1031486
|
||
! Node: Cross-compilation1033216
|
||
! Node: Misc1039663
|
||
! Node: Config1056789
|
||
! Node: Fragments1064234
|
||
! Node: Target Fragment1064831
|
||
! Node: Host Fragment1067869
|
||
! Node: Index1068471
|
||
|
||
End Tag Table
|
||
diff -rcP gcc-2.7.2.1/gcc.info-1 gcc-2.7.2.1-objc-960906/gcc.info-1
|
||
*** gcc-2.7.2.1/gcc.info-1 Fri Sep 6 11:21:21 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-1 Fri Sep 6 10:26:04 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 653,670 ****
|
||
reasons only partly related to the general issue of interface copyright.
|
||
|
||
Lotus won lawsuits against two small companies, which were thus put
|
||
! out of business. Then they sued Borland; they won in the trial court
|
||
(no surprise, since it was the same court that had ruled for Lotus twice
|
||
! before), but the decision was reversed by the court of appeals, with
|
||
! help from the League for Programming Freedom in the form of a
|
||
! friend-of-the-court brief. We are now waiting to see if the Supreme
|
||
! Court will hear the case. If it does, the League for Programming
|
||
! Freedom will again submit a brief.
|
||
!
|
||
! The battle is not over. Just this summer a company that produced a
|
||
! simulator for a CDC computer was shut down by a copyright lawsuit by
|
||
! CDC, which charged that the simulator infringed the copyright on the
|
||
! manuals for the computer.
|
||
|
||
If the monopolists get their way, they will hobble the software
|
||
field:
|
||
--- 653,675 ----
|
||
reasons only partly related to the general issue of interface copyright.
|
||
|
||
Lotus won lawsuits against two small companies, which were thus put
|
||
! out of business. Then Lotus sued Borland; Lotus won in the trial court
|
||
(no surprise, since it was the same court that had ruled for Lotus twice
|
||
! before), but the court of appeals ruled in favor of Borland, which was
|
||
! assisted by a friend-of-the-court brief from the League for Programming
|
||
! Freedom.
|
||
!
|
||
! Lotus appealed the case to the Supreme Court, which heard the case
|
||
! but was unable to reach a decision. This failure means that the appeals
|
||
! court decision stands, in one portion of the United States, and may
|
||
! influence the other appeals courts, but it does not set a nationwide
|
||
! precedent. The battle is not over, and it is not limited to the United
|
||
! States.
|
||
!
|
||
! The battle is extending into other areas of software as well. In
|
||
! 1995 a company that produced a simulator for a CDC computer was shut
|
||
! down by a copyright lawsuit, in which CDC charged that the simulator
|
||
! infringed the copyright on the manuals for the computer.
|
||
|
||
If the monopolists get their way, they will hobble the software
|
||
field:
|
||
diff -rcP gcc-2.7.2.1/gcc.info-10 gcc-2.7.2.1-objc-960906/gcc.info-10
|
||
*** gcc-2.7.2.1/gcc.info-10 Fri Sep 6 11:21:22 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-10 Fri Sep 6 10:26:05 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-11 gcc-2.7.2.1-objc-960906/gcc.info-11
|
||
*** gcc-2.7.2.1/gcc.info-11 Fri Sep 6 11:21:23 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-11 Fri Sep 6 10:26:05 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 85,95 ****
|
||
GNU CC. The fix is to get rid of the file `real-ld' which purify
|
||
installs--so that GNU CC won't try to use it.
|
||
|
||
! * On Linux SLS 1.01, there is a problem with `libc.a': it does not
|
||
! contain the obstack functions. However, GNU CC assumes that the
|
||
! obstack functions are in `libc.a' when it is the GNU C library.
|
||
! To work around this problem, change the `__GNU_LIBRARY__'
|
||
! conditional around line 31 to `#if 1'.
|
||
|
||
* On some 386 systems, building the compiler never finishes because
|
||
`enquire' hangs due to a hardware problem in the motherboard--it
|
||
--- 85,95 ----
|
||
GNU CC. The fix is to get rid of the file `real-ld' which purify
|
||
installs--so that GNU CC won't try to use it.
|
||
|
||
! * On SLS 1.01, a Linux-based GNU system, there is a problem with
|
||
! `libc.a': it does not contain the obstack functions. However, GNU
|
||
! CC assumes that the obstack functions are in `libc.a' when it is
|
||
! the GNU C library. To work around this problem, change the
|
||
! `__GNU_LIBRARY__' conditional around line 31 to `#if 1'.
|
||
|
||
* On some 386 systems, building the compiler never finishes because
|
||
`enquire' hangs due to a hardware problem in the motherboard--it
|
||
diff -rcP gcc-2.7.2.1/gcc.info-12 gcc-2.7.2.1-objc-960906/gcc.info-12
|
||
*** gcc-2.7.2.1/gcc.info-12 Fri Sep 6 11:21:24 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-12 Fri Sep 6 10:26:06 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-13 gcc-2.7.2.1-objc-960906/gcc.info-13
|
||
*** gcc-2.7.2.1/gcc.info-13 Fri Sep 6 11:21:25 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-13 Fri Sep 6 10:26:07 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-14 gcc-2.7.2.1-objc-960906/gcc.info-14
|
||
*** gcc-2.7.2.1/gcc.info-14 Fri Sep 6 11:21:25 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-14 Fri Sep 6 10:26:08 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 909,915 ****
|
||
|
||
`(float_extend:M X)'
|
||
Represents the result of extending the value X to machine mode M.
|
||
! m must be a floating point mode and X a floating point value of a
|
||
mode narrower than M.
|
||
|
||
`(truncate:M X)'
|
||
--- 909,915 ----
|
||
|
||
`(float_extend:M X)'
|
||
Represents the result of extending the value X to machine mode M.
|
||
! M must be a floating point mode and X a floating point value of a
|
||
mode narrower than M.
|
||
|
||
`(truncate:M X)'
|
||
diff -rcP gcc-2.7.2.1/gcc.info-15 gcc-2.7.2.1-objc-960906/gcc.info-15
|
||
*** gcc-2.7.2.1/gcc.info-15 Fri Sep 6 11:21:26 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-15 Fri Sep 6 10:26:09 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 295,302 ****
|
||
`(pre_dec:M X)'
|
||
Represents the side effect of decrementing X by a standard amount
|
||
and represents also the value that X has after being decremented.
|
||
! x must be a `reg' or `mem', but most machines allow only a `reg'.
|
||
! m must be the machine mode for pointers on the machine in use.
|
||
The amount X is decremented by is the length in bytes of the
|
||
machine mode of the containing memory reference of which this
|
||
expression serves as the address. Here is an example of its use:
|
||
--- 295,302 ----
|
||
`(pre_dec:M X)'
|
||
Represents the side effect of decrementing X by a standard amount
|
||
and represents also the value that X has after being decremented.
|
||
! X must be a `reg' or `mem', but most machines allow only a `reg'.
|
||
! M must be the machine mode for pointers on the machine in use.
|
||
The amount X is decremented by is the length in bytes of the
|
||
machine mode of the containing memory reference of which this
|
||
expression serves as the address. Here is an example of its use:
|
||
diff -rcP gcc-2.7.2.1/gcc.info-16 gcc-2.7.2.1-objc-960906/gcc.info-16
|
||
*** gcc-2.7.2.1/gcc.info-16 Fri Sep 6 11:21:27 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-16 Fri Sep 6 10:26:10 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-17 gcc-2.7.2.1-objc-960906/gcc.info-17
|
||
*** gcc-2.7.2.1/gcc.info-17 Fri Sep 6 11:21:28 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-17 Fri Sep 6 10:26:10 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 385,391 ****
|
||
`sCOND'
|
||
Store zero or nonzero in the operand according to the condition
|
||
codes. Value stored is nonzero iff the condition COND is true.
|
||
! cOND is the name of a comparison operation expression code, such
|
||
as `eq', `lt' or `leu'.
|
||
|
||
You specify the mode that the operand must have when you write the
|
||
--- 385,391 ----
|
||
`sCOND'
|
||
Store zero or nonzero in the operand according to the condition
|
||
codes. Value stored is nonzero iff the condition COND is true.
|
||
! COND is the name of a comparison operation expression code, such
|
||
as `eq', `lt' or `leu'.
|
||
|
||
You specify the mode that the operand must have when you write the
|
||
diff -rcP gcc-2.7.2.1/gcc.info-18 gcc-2.7.2.1-objc-960906/gcc.info-18
|
||
*** gcc-2.7.2.1/gcc.info-18 Fri Sep 6 11:21:29 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-18 Fri Sep 6 10:26:11 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-19 gcc-2.7.2.1-objc-960906/gcc.info-19
|
||
*** gcc-2.7.2.1/gcc.info-19 Fri Sep 6 11:21:29 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-19 Fri Sep 6 10:26:12 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-2 gcc-2.7.2.1-objc-960906/gcc.info-2
|
||
*** gcc-2.7.2.1/gcc.info-2 Fri Sep 6 11:21:30 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-2 Fri Sep 6 10:26:12 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-20 gcc-2.7.2.1-objc-960906/gcc.info-20
|
||
*** gcc-2.7.2.1/gcc.info-20 Fri Sep 6 11:21:31 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-20 Fri Sep 6 10:26:13 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 657,663 ****
|
||
`RETURN_ADDR_RTX (COUNT, FRAMEADDR)'
|
||
A C expression whose value is RTL representing the value of the
|
||
return address for the frame COUNT steps up from the current frame.
|
||
! fRAMEADDR is the frame pointer of the COUNT frame, or the frame
|
||
pointer of the COUNT - 1 frame if `RETURN_ADDR_IN_PREVIOUS_FRAME'
|
||
is defined.
|
||
|
||
--- 657,663 ----
|
||
`RETURN_ADDR_RTX (COUNT, FRAMEADDR)'
|
||
A C expression whose value is RTL representing the value of the
|
||
return address for the frame COUNT steps up from the current frame.
|
||
! FRAMEADDR is the frame pointer of the COUNT frame, or the frame
|
||
pointer of the COUNT - 1 frame if `RETURN_ADDR_IN_PREVIOUS_FRAME'
|
||
is defined.
|
||
|
||
diff -rcP gcc-2.7.2.1/gcc.info-21 gcc-2.7.2.1-objc-960906/gcc.info-21
|
||
*** gcc-2.7.2.1/gcc.info-21 Fri Sep 6 11:21:32 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-21 Fri Sep 6 10:26:14 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 841,847 ****
|
||
|
||
`INITIALIZE_TRAMPOLINE (ADDR, FNADDR, STATIC_CHAIN)'
|
||
A C statement to initialize the variable parts of a trampoline.
|
||
! aDDR is an RTX for the address of the trampoline; FNADDR is an RTX
|
||
for the address of the nested function; STATIC_CHAIN is an RTX for
|
||
the static chain value that should be passed to the function when
|
||
it is called.
|
||
--- 841,847 ----
|
||
|
||
`INITIALIZE_TRAMPOLINE (ADDR, FNADDR, STATIC_CHAIN)'
|
||
A C statement to initialize the variable parts of a trampoline.
|
||
! ADDR is an RTX for the address of the trampoline; FNADDR is an RTX
|
||
for the address of the nested function; STATIC_CHAIN is an RTX for
|
||
the static chain value that should be passed to the function when
|
||
it is called.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-22 gcc-2.7.2.1-objc-960906/gcc.info-22
|
||
*** gcc-2.7.2.1/gcc.info-22 Fri Sep 6 11:21:32 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-22 Fri Sep 6 10:26:14 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-23 gcc-2.7.2.1-objc-960906/gcc.info-23
|
||
*** gcc-2.7.2.1/gcc.info-23 Fri Sep 6 11:21:33 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-23 Fri Sep 6 10:26:15 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-24 gcc-2.7.2.1-objc-960906/gcc.info-24
|
||
*** gcc-2.7.2.1/gcc.info-24 Fri Sep 6 11:21:34 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-24 Fri Sep 6 10:26:15 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 100,106 ****
|
||
A macro whose definition is a C expression to round the
|
||
target-machine floating point value X towards zero to an unsigned
|
||
integer value (but still represented as a floating point number).
|
||
! x has type `REAL_VALUE_TYPE', and so does the value.
|
||
|
||
`REAL_VALUE_ATOF (STRING, MODE)'
|
||
A macro for a C expression which converts STRING, an expression of
|
||
--- 100,106 ----
|
||
A macro whose definition is a C expression to round the
|
||
target-machine floating point value X towards zero to an unsigned
|
||
integer value (but still represented as a floating point number).
|
||
! X has type `REAL_VALUE_TYPE', and so does the value.
|
||
|
||
`REAL_VALUE_ATOF (STRING, MODE)'
|
||
A macro for a C expression which converts STRING, an expression of
|
||
diff -rcP gcc-2.7.2.1/gcc.info-25 gcc-2.7.2.1-objc-960906/gcc.info-25
|
||
*** gcc-2.7.2.1/gcc.info-25 Fri Sep 6 11:21:36 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-25 Fri Sep 6 10:26:17 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 53,59 ****
|
||
* -lgcc, use with -nostdlib: Link Options.
|
||
* -nodefaultlibs and unresolved references: Link Options.
|
||
* -nostdlib and unresolved references: Link Options.
|
||
! * ?: extensions: Conditionals.
|
||
* ?: extensions: Lvalues.
|
||
* absM2 instruction pattern: Standard Names.
|
||
* abs and attributes: Expressions.
|
||
--- 53,59 ----
|
||
* -lgcc, use with -nostdlib: Link Options.
|
||
* -nodefaultlibs and unresolved references: Link Options.
|
||
* -nostdlib and unresolved references: Link Options.
|
||
! * ?: extensions <1>: Conditionals.
|
||
* ?: extensions: Lvalues.
|
||
* absM2 instruction pattern: Standard Names.
|
||
* abs and attributes: Expressions.
|
||
***************
|
||
*** 62,68 ****
|
||
* addr_diff_vec, length of: Insn Lengths.
|
||
* addr_vec, length of: Insn Lengths.
|
||
* alias attribute: Function Attributes.
|
||
! * aligned attribute: Type Attributes.
|
||
* aligned attribute: Variable Attributes.
|
||
* allocate_stack instruction pattern: Standard Names.
|
||
* alloca and SunOs: Installation.
|
||
--- 62,68 ----
|
||
* addr_diff_vec, length of: Insn Lengths.
|
||
* addr_vec, length of: Insn Lengths.
|
||
* alias attribute: Function Attributes.
|
||
! * aligned attribute <1>: Type Attributes.
|
||
* aligned attribute: Variable Attributes.
|
||
* allocate_stack instruction pattern: Standard Names.
|
||
* alloca and SunOs: Installation.
|
||
***************
|
||
*** 98,109 ****
|
||
* code_label and /i: Flags.
|
||
* compare, canonicalization of: Insn Canonicalizations.
|
||
* cond and attributes: Expressions.
|
||
- * constructor function attribute: Function Attributes.
|
||
* const_double, RTL sharing: Sharing.
|
||
* const_int and attribute tests: Expressions.
|
||
* const_int and attributes: Expressions.
|
||
* const_int, RTL sharing: Sharing.
|
||
* const_string and attributes: Expressions.
|
||
* const applied to function: Function Attributes.
|
||
* const function attribute: Function Attributes.
|
||
* define_insn example: Example.
|
||
--- 98,109 ----
|
||
* code_label and /i: Flags.
|
||
* compare, canonicalization of: Insn Canonicalizations.
|
||
* cond and attributes: Expressions.
|
||
* const_double, RTL sharing: Sharing.
|
||
* const_int and attribute tests: Expressions.
|
||
* const_int and attributes: Expressions.
|
||
* const_int, RTL sharing: Sharing.
|
||
* const_string and attributes: Expressions.
|
||
+ * constructor function attribute: Function Attributes.
|
||
* const applied to function: Function Attributes.
|
||
* const function attribute: Function Attributes.
|
||
* define_insn example: Example.
|
||
***************
|
||
*** 122,130 ****
|
||
* ffsM2 instruction pattern: Standard Names.
|
||
* FIRST_PARM_OFFSET and virtual registers: Regs and Memory.
|
||
* fixMN2 instruction pattern: Standard Names.
|
||
* fixunsMN2 instruction pattern: Standard Names.
|
||
* fixuns_truncMN2 instruction pattern: Standard Names.
|
||
- * fix_truncMN2 instruction pattern: Standard Names.
|
||
* floatMN2 instruction pattern: Standard Names.
|
||
* floatunsMN2 instruction pattern: Standard Names.
|
||
* float as function value type: Incompatibilities.
|
||
--- 122,130 ----
|
||
* ffsM2 instruction pattern: Standard Names.
|
||
* FIRST_PARM_OFFSET and virtual registers: Regs and Memory.
|
||
* fixMN2 instruction pattern: Standard Names.
|
||
+ * fix_truncMN2 instruction pattern: Standard Names.
|
||
* fixunsMN2 instruction pattern: Standard Names.
|
||
* fixuns_truncMN2 instruction pattern: Standard Names.
|
||
* floatMN2 instruction pattern: Standard Names.
|
||
* floatunsMN2 instruction pattern: Standard Names.
|
||
* float as function value type: Incompatibilities.
|
||
***************
|
||
*** 148,153 ****
|
||
--- 148,159 ----
|
||
* HImode, in insn: Insns.
|
||
* if_then_else and attributes: Expressions.
|
||
* if_then_else usage: Side Effects.
|
||
+ * in_struct, in code_label: Flags.
|
||
+ * in_struct, in insn: Flags.
|
||
+ * in_struct, in label_ref: Flags.
|
||
+ * in_struct, in mem: Flags.
|
||
+ * in_struct, in reg: Flags.
|
||
+ * in_struct, in subreg: Flags.
|
||
* indirect_jump instruction pattern: Standard Names.
|
||
* inline automatic for C++ member fns: Inline.
|
||
* insn and /i: Flags.
|
||
***************
|
||
*** 156,168 ****
|
||
* insv instruction pattern: Standard Names.
|
||
* integrated, in insn: Flags.
|
||
* integrated, in reg: Flags.
|
||
- * in_struct, in code_label: Flags.
|
||
- * in_struct, in insn: Flags.
|
||
- * in_struct, in insn: Flags.
|
||
- * in_struct, in label_ref: Flags.
|
||
- * in_struct, in mem: Flags.
|
||
- * in_struct, in reg: Flags.
|
||
- * in_struct, in subreg: Flags.
|
||
* iorM3 instruction pattern: Standard Names.
|
||
* ior and attributes: Expressions.
|
||
* ior, canonicalization of: Insn Canonicalizations.
|
||
--- 162,167 ----
|
||
***************
|
||
*** 172,178 ****
|
||
* le and attributes: Expressions.
|
||
* load_multiple instruction pattern: Standard Names.
|
||
* long long data types: Long Long.
|
||
! * longjmp and automatic variables: Interface.
|
||
* longjmp and automatic variables: C Dialect Options.
|
||
* longjmp incompatibilities: Incompatibilities.
|
||
* longjmp warnings: Warning Options.
|
||
--- 171,177 ----
|
||
* le and attributes: Expressions.
|
||
* load_multiple instruction pattern: Standard Names.
|
||
* long long data types: Long Long.
|
||
! * longjmp and automatic variables <1>: Interface.
|
||
* longjmp and automatic variables: C Dialect Options.
|
||
* longjmp incompatibilities: Incompatibilities.
|
||
* longjmp warnings: Warning Options.
|
||
***************
|
||
*** 250,257 ****
|
||
* section function attribute: Function Attributes.
|
||
* section variable attribute: Variable Attributes.
|
||
* setjmp incompatibilities: Incompatibilities.
|
||
- * signature in C++, advantages: C++ Signatures.
|
||
* sign_extract, canonicalization of: Insn Canonicalizations.
|
||
* smulM3_highpart instruction pattern: Standard Names.
|
||
* sqrtM2 instruction pattern: Standard Names.
|
||
* sscanf, and constant strings: Incompatibilities.
|
||
--- 249,256 ----
|
||
* section function attribute: Function Attributes.
|
||
* section variable attribute: Variable Attributes.
|
||
* setjmp incompatibilities: Incompatibilities.
|
||
* sign_extract, canonicalization of: Insn Canonicalizations.
|
||
+ * signature in C++, advantages: C++ Signatures.
|
||
* smulM3_highpart instruction pattern: Standard Names.
|
||
* sqrtM2 instruction pattern: Standard Names.
|
||
* sscanf, and constant strings: Incompatibilities.
|
||
***************
|
||
*** 319,325 ****
|
||
* + in constraint: Modifiers.
|
||
* /i in RTL dump: Flags.
|
||
* /s in RTL dump: Flags.
|
||
- * /s in RTL dump: Flags.
|
||
* /u in RTL dump: Flags.
|
||
* /v in RTL dump: Flags.
|
||
* 0 in constraint: Simple Constraints.
|
||
--- 318,323 ----
|
||
***************
|
||
*** 327,339 ****
|
||
* = in constraint: Modifiers.
|
||
* > in constraint: Simple Constraints.
|
||
* ? in constraint: Multi-Alternative.
|
||
* d in constraint: Simple Constraints.
|
||
* E in constraint: Simple Constraints.
|
||
* F in constraint: Simple Constraints.
|
||
* G in constraint: Simple Constraints.
|
||
- * g in constraint: Simple Constraints.
|
||
* H in constraint: Simple Constraints.
|
||
- * I in constraint: Simple Constraints.
|
||
* i in constraint: Simple Constraints.
|
||
* m in constraint: Simple Constraints.
|
||
* n in constraint: Simple Constraints.
|
||
--- 325,336 ----
|
||
* = in constraint: Modifiers.
|
||
* > in constraint: Simple Constraints.
|
||
* ? in constraint: Multi-Alternative.
|
||
+ * _ in variables in macros: Naming Types.
|
||
* d in constraint: Simple Constraints.
|
||
* E in constraint: Simple Constraints.
|
||
* F in constraint: Simple Constraints.
|
||
* G in constraint: Simple Constraints.
|
||
* H in constraint: Simple Constraints.
|
||
* i in constraint: Simple Constraints.
|
||
* m in constraint: Simple Constraints.
|
||
* n in constraint: Simple Constraints.
|
||
***************
|
||
*** 345,376 ****
|
||
* s in constraint: Simple Constraints.
|
||
* V in constraint: Simple Constraints.
|
||
* X in constraint: Simple Constraints.
|
||
! * _ in variables in macros: Naming Types.
|
||
! * abort: Portability.
|
||
* abort: C Dialect Options.
|
||
! * abs: Arithmetic.
|
||
* abs: C Dialect Options.
|
||
* absolute value: Arithmetic.
|
||
* access to operands: Accessors.
|
||
* accessors: Accessors.
|
||
* ACCUMULATE_OUTGOING_ARGS: Stack Arguments.
|
||
* ADDITIONAL_REGISTER_NAMES: Instruction Output.
|
||
* address: RTL Template.
|
||
* address constraints: Simple Constraints.
|
||
* address of a label: Labels as Values.
|
||
- * addressing modes: Addressing Modes.
|
||
* ADDRESS_COST: Costs.
|
||
* address_operand: Simple Constraints.
|
||
! * addr_diff_vec: Side Effects.
|
||
! * addr_vec: Side Effects.
|
||
* ADJUST_COST: Costs.
|
||
* ADJUST_INSN_LENGTH: Insn Lengths.
|
||
* aggregates as return values: Aggregate Return.
|
||
* alignment: Alignment.
|
||
* Alliant: Interoperation.
|
||
* alloca: C Dialect Options.
|
||
* ALLOCATE_TRAMPOLINE: Trampolines.
|
||
- * ALL_REGS: Register Classes.
|
||
* alternate keywords: Alternate Keywords.
|
||
* AMD29K options: AMD29K Options.
|
||
* analysis, data flow: Passes.
|
||
--- 342,384 ----
|
||
* s in constraint: Simple Constraints.
|
||
* V in constraint: Simple Constraints.
|
||
* X in constraint: Simple Constraints.
|
||
! * \: Output Template.
|
||
! * __bb_init_func: Profiling.
|
||
! * __builtin_apply: Constructing Calls.
|
||
! * __builtin_apply_args: Constructing Calls.
|
||
! * __builtin_args_info: Varargs.
|
||
! * __builtin_classify_type: Varargs.
|
||
! * __builtin_next_arg: Varargs.
|
||
! * __builtin_return: Constructing Calls.
|
||
! * __builtin_saveregs: Varargs.
|
||
! * __CTOR_LIST__: Initialization.
|
||
! * __DTOR_LIST__: Initialization.
|
||
! * __main: Collect2.
|
||
! * abort <1>: Portability.
|
||
* abort: C Dialect Options.
|
||
! * abs <1>: Arithmetic.
|
||
* abs: C Dialect Options.
|
||
* absolute value: Arithmetic.
|
||
* access to operands: Accessors.
|
||
* accessors: Accessors.
|
||
* ACCUMULATE_OUTGOING_ARGS: Stack Arguments.
|
||
* ADDITIONAL_REGISTER_NAMES: Instruction Output.
|
||
+ * addr_diff_vec: Side Effects.
|
||
+ * addr_vec: Side Effects.
|
||
* address: RTL Template.
|
||
* address constraints: Simple Constraints.
|
||
* address of a label: Labels as Values.
|
||
* ADDRESS_COST: Costs.
|
||
* address_operand: Simple Constraints.
|
||
! * addressing modes: Addressing Modes.
|
||
* ADJUST_COST: Costs.
|
||
* ADJUST_INSN_LENGTH: Insn Lengths.
|
||
* aggregates as return values: Aggregate Return.
|
||
* alignment: Alignment.
|
||
+ * ALL_REGS: Register Classes.
|
||
* Alliant: Interoperation.
|
||
* alloca: C Dialect Options.
|
||
* ALLOCATE_TRAMPOLINE: Trampolines.
|
||
* alternate keywords: Alternate Keywords.
|
||
* AMD29K options: AMD29K Options.
|
||
* analysis, data flow: Passes.
|
||
***************
|
||
*** 378,390 ****
|
||
* ANSI support: C Dialect Options.
|
||
* apostrophes: Incompatibilities.
|
||
* APPLY_RESULT_SIZE: Scalar Return.
|
||
* ARGS_GROW_DOWNWARD: Frame Layout.
|
||
* argument passing: Interface.
|
||
* arguments in frame (88k): M88K Options.
|
||
* arguments in registers: Register Arguments.
|
||
* arguments on stack: Stack Arguments.
|
||
- * ARG_POINTER_REGNUM: Frame Registers.
|
||
- * arg_pointer_rtx: Frame Registers.
|
||
* arithmetic libraries: Interface.
|
||
* arithmetic shift: Arithmetic.
|
||
* arithmetic simplifications: Passes.
|
||
--- 386,398 ----
|
||
* ANSI support: C Dialect Options.
|
||
* apostrophes: Incompatibilities.
|
||
* APPLY_RESULT_SIZE: Scalar Return.
|
||
+ * ARG_POINTER_REGNUM: Frame Registers.
|
||
+ * arg_pointer_rtx: Frame Registers.
|
||
* ARGS_GROW_DOWNWARD: Frame Layout.
|
||
* argument passing: Interface.
|
||
* arguments in frame (88k): M88K Options.
|
||
* arguments in registers: Register Arguments.
|
||
* arguments on stack: Stack Arguments.
|
||
* arithmetic libraries: Interface.
|
||
* arithmetic shift: Arithmetic.
|
||
* arithmetic simplifications: Passes.
|
||
***************
|
||
*** 413,427 ****
|
||
* ASM_GLOBALIZE_LABEL: Label Output.
|
||
* ASM_IDENTIFY_GCC: File Framework.
|
||
* asm_input: Side Effects.
|
||
- * asm_noperands: Insns.
|
||
* ASM_NO_SKIP_IN_TEXT: Alignment Output.
|
||
* ASM_OPEN_PAREN: Data Output.
|
||
* ASM_OUTPUT_ADDR_DIFF_ELT: Dispatch Tables.
|
||
* ASM_OUTPUT_ADDR_VEC_ELT: Dispatch Tables.
|
||
* ASM_OUTPUT_ALIGN: Alignment Output.
|
||
* ASM_OUTPUT_ALIGNED_COMMON: Uninitialized Data.
|
||
* ASM_OUTPUT_ALIGNED_LOCAL: Uninitialized Data.
|
||
- * ASM_OUTPUT_ALIGN_CODE: Alignment Output.
|
||
* ASM_OUTPUT_ASCII: Data Output.
|
||
* ASM_OUTPUT_BYTE: Data Output.
|
||
* ASM_OUTPUT_CASE_END: Dispatch Tables.
|
||
--- 421,435 ----
|
||
* ASM_GLOBALIZE_LABEL: Label Output.
|
||
* ASM_IDENTIFY_GCC: File Framework.
|
||
* asm_input: Side Effects.
|
||
* ASM_NO_SKIP_IN_TEXT: Alignment Output.
|
||
+ * asm_noperands: Insns.
|
||
* ASM_OPEN_PAREN: Data Output.
|
||
* ASM_OUTPUT_ADDR_DIFF_ELT: Dispatch Tables.
|
||
* ASM_OUTPUT_ADDR_VEC_ELT: Dispatch Tables.
|
||
* ASM_OUTPUT_ALIGN: Alignment Output.
|
||
+ * ASM_OUTPUT_ALIGN_CODE: Alignment Output.
|
||
* ASM_OUTPUT_ALIGNED_COMMON: Uninitialized Data.
|
||
* ASM_OUTPUT_ALIGNED_LOCAL: Uninitialized Data.
|
||
* ASM_OUTPUT_ASCII: Data Output.
|
||
* ASM_OUTPUT_BYTE: Data Output.
|
||
* ASM_OUTPUT_CASE_END: Dispatch Tables.
|
||
***************
|
||
*** 462,486 ****
|
||
* ASM_STABN_OP: DBX Options.
|
||
* ASM_STABS_OP: DBX Options.
|
||
* ASM_WEAKEN_LABEL: Label Output.
|
||
* assembler format: File Framework.
|
||
* assembler instructions: Extended Asm.
|
||
* assembler instructions in RTL: Assembler.
|
||
* assembler names for identifiers: Asm Labels.
|
||
* assembler syntax, 88k: M88K Options.
|
||
* ASSEMBLER_DIALECT: Instruction Output.
|
||
- * assemble_name: Label Output.
|
||
* assembly code, invalid: Bug Criteria.
|
||
* assigning attribute values to insns: Tagging Insns.
|
||
* asterisk in template: Output Statement.
|
||
* atof: Cross-compilation.
|
||
* attr: Tagging Insns.
|
||
* attribute expressions: Expressions.
|
||
* attribute of types: Type Attributes.
|
||
* attribute of variables: Variable Attributes.
|
||
* attribute specifications: Attr Example.
|
||
* attribute specifications example: Attr Example.
|
||
* attributes, defining: Defining Attributes.
|
||
- * attr_flag: Expressions.
|
||
* autoincrement addressing, availability: Portability.
|
||
* autoincrement/decrement addressing: Simple Constraints.
|
||
* autoincrement/decrement analysis: Passes.
|
||
--- 470,494 ----
|
||
* ASM_STABN_OP: DBX Options.
|
||
* ASM_STABS_OP: DBX Options.
|
||
* ASM_WEAKEN_LABEL: Label Output.
|
||
+ * assemble_name: Label Output.
|
||
* assembler format: File Framework.
|
||
* assembler instructions: Extended Asm.
|
||
* assembler instructions in RTL: Assembler.
|
||
* assembler names for identifiers: Asm Labels.
|
||
* assembler syntax, 88k: M88K Options.
|
||
* ASSEMBLER_DIALECT: Instruction Output.
|
||
* assembly code, invalid: Bug Criteria.
|
||
* assigning attribute values to insns: Tagging Insns.
|
||
* asterisk in template: Output Statement.
|
||
* atof: Cross-compilation.
|
||
* attr: Tagging Insns.
|
||
+ * attr_flag: Expressions.
|
||
* attribute expressions: Expressions.
|
||
* attribute of types: Type Attributes.
|
||
* attribute of variables: Variable Attributes.
|
||
* attribute specifications: Attr Example.
|
||
* attribute specifications example: Attr Example.
|
||
* attributes, defining: Defining Attributes.
|
||
* autoincrement addressing, availability: Portability.
|
||
* autoincrement/decrement addressing: Simple Constraints.
|
||
* autoincrement/decrement analysis: Passes.
|
||
***************
|
||
*** 515,522 ****
|
||
* bugs, known: Trouble.
|
||
* builtin functions: C Dialect Options.
|
||
* byte writes (29k): AMD29K Options.
|
||
- * BYTES_BIG_ENDIAN: Storage Layout.
|
||
* byte_mode: Machine Modes.
|
||
* bzero: Config.
|
||
* C compilation options: Invoking GCC.
|
||
* C intermediate output, nonexistent: G++ and GCC.
|
||
--- 523,530 ----
|
||
* bugs, known: Trouble.
|
||
* builtin functions: C Dialect Options.
|
||
* byte writes (29k): AMD29K Options.
|
||
* byte_mode: Machine Modes.
|
||
+ * BYTES_BIG_ENDIAN: Storage Layout.
|
||
* bzero: Config.
|
||
* C compilation options: Invoking GCC.
|
||
* C intermediate output, nonexistent: G++ and GCC.
|
||
***************
|
||
*** 539,559 ****
|
||
* C++ static data, declaring and defining: Static Definitions.
|
||
* C++ subtype polymorphism: C++ Signatures.
|
||
* C++ type abstraction: C++ Signatures.
|
||
* call: Side Effects.
|
||
* call-clobbered register: Register Basics.
|
||
* call-saved register: Register Basics.
|
||
* call-used register: Register Basics.
|
||
- * CALLER_SAVE_PROFITABLE: Caller Saves.
|
||
- * calling conventions: Stack and Calling.
|
||
- * calling functions in RTL: Calls.
|
||
* call_insn: Insns.
|
||
* CALL_INSN_FUNCTION_USAGE: Insns.
|
||
* CALL_USED_REGISTERS: Register Basics.
|
||
* call_used_regs: Register Basics.
|
||
! * canonicalization of instructions: Insn Canonicalizations.
|
||
! * CANONICALIZE_COMPARISON: Condition Code.
|
||
* CAN_DEBUG_WITHOUT_FP: Run-time Target.
|
||
* CAN_ELIMINATE: Elimination.
|
||
* case labels in initializers: Labeled Elements.
|
||
* case ranges: Case Ranges.
|
||
* case sensitivity and VMS: VMS Misc.
|
||
--- 547,568 ----
|
||
* C++ static data, declaring and defining: Static Definitions.
|
||
* C++ subtype polymorphism: C++ Signatures.
|
||
* C++ type abstraction: C++ Signatures.
|
||
+ * C_INCLUDE_PATH: Environment Variables.
|
||
* call: Side Effects.
|
||
* call-clobbered register: Register Basics.
|
||
* call-saved register: Register Basics.
|
||
* call-used register: Register Basics.
|
||
* call_insn: Insns.
|
||
* CALL_INSN_FUNCTION_USAGE: Insns.
|
||
* CALL_USED_REGISTERS: Register Basics.
|
||
* call_used_regs: Register Basics.
|
||
! * CALLER_SAVE_PROFITABLE: Caller Saves.
|
||
! * calling conventions: Stack and Calling.
|
||
! * calling functions in RTL: Calls.
|
||
* CAN_DEBUG_WITHOUT_FP: Run-time Target.
|
||
* CAN_ELIMINATE: Elimination.
|
||
+ * canonicalization of instructions: Insn Canonicalizations.
|
||
+ * CANONICALIZE_COMPARISON: Condition Code.
|
||
* case labels in initializers: Labeled Elements.
|
||
* case ranges: Case Ranges.
|
||
* case sensitivity and VMS: VMS Misc.
|
||
***************
|
||
*** 566,577 ****
|
||
* CC: Host Fragment.
|
||
* cc0: Regs and Memory.
|
||
* cc0_rtx: Regs and Memory.
|
||
- * CC1PLUS_SPEC: Driver.
|
||
* CC1_SPEC: Driver.
|
||
! * CCmode: Machine Modes.
|
||
* cc_status: Condition Code.
|
||
* CC_STATUS_MDEP: Condition Code.
|
||
* CC_STATUS_MDEP_INIT: Condition Code.
|
||
* CDImode: Machine Modes.
|
||
* change_address: Standard Names.
|
||
* CHAR_TYPE_SIZE: Type Layout.
|
||
--- 575,586 ----
|
||
* CC: Host Fragment.
|
||
* cc0: Regs and Memory.
|
||
* cc0_rtx: Regs and Memory.
|
||
* CC1_SPEC: Driver.
|
||
! * CC1PLUS_SPEC: Driver.
|
||
* cc_status: Condition Code.
|
||
* CC_STATUS_MDEP: Condition Code.
|
||
* CC_STATUS_MDEP_INIT: Condition Code.
|
||
+ * CCmode: Machine Modes.
|
||
* CDImode: Machine Modes.
|
||
* change_address: Standard Names.
|
||
* CHAR_TYPE_SIZE: Type Layout.
|
||
***************
|
||
*** 579,602 ****
|
||
* CHImode: Machine Modes.
|
||
* class definitions, register: Register Classes.
|
||
* class preference constraints: Class Preferences.
|
||
- * classes of RTX codes: Accessors.
|
||
* CLASS_LIKELY_SPILLED_P: Register Classes.
|
||
* CLASS_MAX_NREGS: Register Classes.
|
||
* CLEAR_INSN_CACHE: Trampolines.
|
||
* CLIB: Host Fragment.
|
||
* clobber: Side Effects.
|
||
* code generation conventions: Code Gen Options.
|
||
* code generation RTL sequences: Expander Definitions.
|
||
* code motion: Passes.
|
||
- * codes, RTL expression: RTL Objects.
|
||
* code_label: Insns.
|
||
* CODE_LABEL_NUMBER: Insns.
|
||
* COImode: Machine Modes.
|
||
* COLLECT_EXPORT_LIST: Config.
|
||
* combiner pass: Regs and Memory.
|
||
* command options: Invoking GCC.
|
||
* comments, C++ style: C++ Comments.
|
||
* common subexpression elimination: Passes.
|
||
* compare: Arithmetic.
|
||
* compilation in a separate directory: Other Dir.
|
||
* compiler bugs, reporting: Bug Reporting.
|
||
--- 588,612 ----
|
||
* CHImode: Machine Modes.
|
||
* class definitions, register: Register Classes.
|
||
* class preference constraints: Class Preferences.
|
||
* CLASS_LIKELY_SPILLED_P: Register Classes.
|
||
* CLASS_MAX_NREGS: Register Classes.
|
||
+ * classes of RTX codes: Accessors.
|
||
* CLEAR_INSN_CACHE: Trampolines.
|
||
* CLIB: Host Fragment.
|
||
* clobber: Side Effects.
|
||
* code generation conventions: Code Gen Options.
|
||
* code generation RTL sequences: Expander Definitions.
|
||
* code motion: Passes.
|
||
* code_label: Insns.
|
||
* CODE_LABEL_NUMBER: Insns.
|
||
+ * codes, RTL expression: RTL Objects.
|
||
* COImode: Machine Modes.
|
||
* COLLECT_EXPORT_LIST: Config.
|
||
* combiner pass: Regs and Memory.
|
||
* command options: Invoking GCC.
|
||
* comments, C++ style: C++ Comments.
|
||
* common subexpression elimination: Passes.
|
||
+ * COMP_TYPE_ATTRIBUTES: Misc.
|
||
* compare: Arithmetic.
|
||
* compilation in a separate directory: Other Dir.
|
||
* compiler bugs, reporting: Bug Reporting.
|
||
***************
|
||
*** 610,616 ****
|
||
* compound expressions as lvalues: Lvalues.
|
||
* computed gotos: Labels as Values.
|
||
* computing the length of an insn: Insn Lengths.
|
||
- * COMP_TYPE_ATTRIBUTES: Misc.
|
||
* cond: Comparisons.
|
||
* condition code register: Regs and Memory.
|
||
* condition code status: Condition Code.
|
||
--- 620,625 ----
|
||
***************
|
||
*** 623,642 ****
|
||
* configurations supported by GNU CC: Configurations.
|
||
* conflicting types: Disappointments.
|
||
* const0_rtx: Constants.
|
||
- * CONST0_RTX: Constants.
|
||
* const1_rtx: Constants.
|
||
- * CONST1_RTX: Constants.
|
||
- * CONST2_RTX: Constants.
|
||
* const2_rtx: Constants.
|
||
* constant attributes: Constant Attributes.
|
||
* constant folding: Passes.
|
||
* constant folding and floating point: Cross-compilation.
|
||
* constant propagation: Passes.
|
||
- * constants in constraints: Simple Constraints.
|
||
* CONSTANT_ADDRESS_P: Addressing Modes.
|
||
* CONSTANT_ALIGNMENT: Storage Layout.
|
||
* CONSTANT_P: Addressing Modes.
|
||
* CONSTANT_POOL_ADDRESS_P: Flags.
|
||
* constm1_rtx: Constants.
|
||
* constraint modifier characters: Modifiers.
|
||
* constraint, matching: Simple Constraints.
|
||
--- 632,659 ----
|
||
* configurations supported by GNU CC: Configurations.
|
||
* conflicting types: Disappointments.
|
||
* const0_rtx: Constants.
|
||
* const1_rtx: Constants.
|
||
* const2_rtx: Constants.
|
||
+ * CONST_CALL_P: Flags.
|
||
+ * CONST_COSTS: Costs.
|
||
+ * const_double: Constants.
|
||
+ * CONST_DOUBLE_CHAIN: Constants.
|
||
+ * CONST_DOUBLE_LOW: Constants.
|
||
+ * CONST_DOUBLE_MEM: Constants.
|
||
+ * CONST_DOUBLE_OK_FOR_LETTER_P: Register Classes.
|
||
+ * const_int: Constants.
|
||
+ * CONST_OK_FOR_LETTER_P: Register Classes.
|
||
+ * const_string: Constants.
|
||
+ * const_true_rtx: Constants.
|
||
* constant attributes: Constant Attributes.
|
||
* constant folding: Passes.
|
||
* constant folding and floating point: Cross-compilation.
|
||
* constant propagation: Passes.
|
||
* CONSTANT_ADDRESS_P: Addressing Modes.
|
||
* CONSTANT_ALIGNMENT: Storage Layout.
|
||
* CONSTANT_P: Addressing Modes.
|
||
* CONSTANT_POOL_ADDRESS_P: Flags.
|
||
+ * constants in constraints: Simple Constraints.
|
||
* constm1_rtx: Constants.
|
||
* constraint modifier characters: Modifiers.
|
||
* constraint, matching: Simple Constraints.
|
||
***************
|
||
*** 647,663 ****
|
||
* constructors vs goto: Destructors and Goto.
|
||
* constructors, automatic calls: Collect2.
|
||
* constructors, output of: Initialization.
|
||
- * CONST_CALL_P: Flags.
|
||
- * CONST_COSTS: Costs.
|
||
- * const_double: Constants.
|
||
- * CONST_DOUBLE_CHAIN: Constants.
|
||
- * CONST_DOUBLE_LOW: Constants.
|
||
- * CONST_DOUBLE_MEM: Constants.
|
||
- * CONST_DOUBLE_OK_FOR_LETTER_P: Register Classes.
|
||
- * const_int: Constants.
|
||
- * CONST_OK_FOR_LETTER_P: Register Classes.
|
||
- * const_string: Constants.
|
||
- * const_true_rtx: Constants.
|
||
* contributors: Contributors.
|
||
* controlling register usage: Register Basics.
|
||
* controlling the compilation driver: Driver.
|
||
--- 664,669 ----
|
||
***************
|
||
*** 686,692 ****
|
||
* current_function_outgoing_args_size: Stack Arguments.
|
||
* current_function_pops_args: Function Entry.
|
||
* current_function_pretend_args_size: Function Entry.
|
||
- * C_INCLUDE_PATH: Environment Variables.
|
||
* data flow analysis: Passes.
|
||
* DATA_ALIGNMENT: Storage Layout.
|
||
* data_section: Sections.
|
||
--- 692,697 ----
|
||
***************
|
||
*** 706,713 ****
|
||
* DBX_OUTPUT_FUNCTION_END: DBX Hooks.
|
||
* DBX_OUTPUT_LBRAC: DBX Hooks.
|
||
* DBX_OUTPUT_MAIN_SOURCE_DIRECTORY: File Names and DBX.
|
||
- * DBX_OUTPUT_MAIN_SOURCE_FILENAME: File Names and DBX.
|
||
* DBX_OUTPUT_MAIN_SOURCE_FILE_END: File Names and DBX.
|
||
* DBX_OUTPUT_RBRAC: DBX Hooks.
|
||
* DBX_OUTPUT_SOURCE_FILENAME: File Names and DBX.
|
||
* DBX_OUTPUT_STANDARD_TYPES: DBX Hooks.
|
||
--- 711,718 ----
|
||
* DBX_OUTPUT_FUNCTION_END: DBX Hooks.
|
||
* DBX_OUTPUT_LBRAC: DBX Hooks.
|
||
* DBX_OUTPUT_MAIN_SOURCE_DIRECTORY: File Names and DBX.
|
||
* DBX_OUTPUT_MAIN_SOURCE_FILE_END: File Names and DBX.
|
||
+ * DBX_OUTPUT_MAIN_SOURCE_FILENAME: File Names and DBX.
|
||
* DBX_OUTPUT_RBRAC: DBX Hooks.
|
||
* DBX_OUTPUT_SOURCE_FILENAME: File Names and DBX.
|
||
* DBX_OUTPUT_STANDARD_TYPES: DBX Hooks.
|
||
***************
|
||
*** 724,736 ****
|
||
* dead_or_set_p: Peephole Definitions.
|
||
* deallocating variable length arrays: Variable Length.
|
||
* death notes: Obsolete Register Macros.
|
||
* DEBUGGER_ARG_OFFSET: All Debuggers.
|
||
* DEBUGGER_AUTO_OFFSET: All Debuggers.
|
||
* debugging information generation: Passes.
|
||
* debugging information options: Debugging Options.
|
||
* debugging, 88k OCS: M88K Options.
|
||
- * debug_rtx: Bug Reporting.
|
||
- * DEBUG_SYMS_TEXT: DBX Options.
|
||
* declaration scope: Incompatibilities.
|
||
* declarations inside expressions: Statement Exprs.
|
||
* declarations, RTL: RTL Declarations.
|
||
--- 729,741 ----
|
||
* dead_or_set_p: Peephole Definitions.
|
||
* deallocating variable length arrays: Variable Length.
|
||
* death notes: Obsolete Register Macros.
|
||
+ * debug_rtx: Bug Reporting.
|
||
+ * DEBUG_SYMS_TEXT: DBX Options.
|
||
* DEBUGGER_ARG_OFFSET: All Debuggers.
|
||
* DEBUGGER_AUTO_OFFSET: All Debuggers.
|
||
* debugging information generation: Passes.
|
||
* debugging information options: Debugging Options.
|
||
* debugging, 88k OCS: M88K Options.
|
||
* declaration scope: Incompatibilities.
|
||
* declarations inside expressions: Statement Exprs.
|
||
* declarations, RTL: RTL Declarations.
|
||
***************
|
||
*** 757,764 ****
|
||
* defining RTL sequences for code generation: Expander Definitions.
|
||
* defining static data in C++: Static Definitions.
|
||
* delay slots, defining: Delay Slots.
|
||
- * delayed branch scheduling: Passes.
|
||
* DELAY_SLOTS_FOR_EPILOGUE: Function Entry.
|
||
* dependencies for make as output: Environment Variables.
|
||
* dependencies, make: Preprocessor Options.
|
||
* DEPENDENCIES_OUTPUT: Environment Variables.
|
||
--- 762,769 ----
|
||
* defining RTL sequences for code generation: Expander Definitions.
|
||
* defining static data in C++: Static Definitions.
|
||
* delay slots, defining: Delay Slots.
|
||
* DELAY_SLOTS_FOR_EPILOGUE: Function Entry.
|
||
+ * delayed branch scheduling: Passes.
|
||
* dependencies for make as output: Environment Variables.
|
||
* dependencies, make: Preprocessor Options.
|
||
* DEPENDENCIES_OUTPUT: Environment Variables.
|
||
***************
|
||
*** 770,785 ****
|
||
* dialect options: C Dialect Options.
|
||
* digits in constraint: Simple Constraints.
|
||
* DImode: Machine Modes.
|
||
- * directory options: Directory Options.
|
||
* DIR_SEPARATOR: Config.
|
||
* disabling certain registers: Register Basics.
|
||
* dispatch table: Dispatch Tables.
|
||
* div: Arithmetic.
|
||
* DIVDI3_LIBCALL: Library Calls.
|
||
* divide instruction, 88k: M88K Options.
|
||
* division: Arithmetic.
|
||
- * division: Arithmetic.
|
||
- * division: Arithmetic.
|
||
* DIVSI3_LIBCALL: Library Calls.
|
||
* dollar signs in identifier names: Dollar Signs.
|
||
* DOLLARS_IN_IDENTIFIERS: Misc.
|
||
--- 775,788 ----
|
||
* dialect options: C Dialect Options.
|
||
* digits in constraint: Simple Constraints.
|
||
* DImode: Machine Modes.
|
||
* DIR_SEPARATOR: Config.
|
||
+ * directory options: Directory Options.
|
||
* disabling certain registers: Register Basics.
|
||
* dispatch table: Dispatch Tables.
|
||
* div: Arithmetic.
|
||
* DIVDI3_LIBCALL: Library Calls.
|
||
* divide instruction, 88k: M88K Options.
|
||
* division: Arithmetic.
|
||
* DIVSI3_LIBCALL: Library Calls.
|
||
* dollar signs in identifier names: Dollar Signs.
|
||
* DOLLARS_IN_IDENTIFIERS: Misc.
|
||
***************
|
||
*** 807,814 ****
|
||
* environment variables: Environment Variables.
|
||
* epilogue: Function Entry.
|
||
* eq: Comparisons.
|
||
- * equal: Comparisons.
|
||
* eq_attr: Expressions.
|
||
* error messages: Warnings and Errors.
|
||
* escape sequences, traditional: C Dialect Options.
|
||
* exclamation point: Multi-Alternative.
|
||
--- 810,817 ----
|
||
* environment variables: Environment Variables.
|
||
* epilogue: Function Entry.
|
||
* eq: Comparisons.
|
||
* eq_attr: Expressions.
|
||
+ * equal: Comparisons.
|
||
* error messages: Warnings and Errors.
|
||
* escape sequences, traditional: C Dialect Options.
|
||
* exclamation point: Multi-Alternative.
|
||
***************
|
||
*** 818,835 ****
|
||
* exit status and VMS: VMS Misc.
|
||
* EXIT_BODY: Misc.
|
||
* EXIT_IGNORE_STACK: Function Entry.
|
||
- * expander definitions: Expander Definitions.
|
||
* EXPAND_BUILTIN_SAVEREGS: Varargs.
|
||
* explicit register variables: Explicit Reg Vars.
|
||
* expression codes: RTL Objects.
|
||
* expressions containing statements: Statement Exprs.
|
||
* expressions, compound, as lvalues: Lvalues.
|
||
* expressions, conditional, as lvalues: Lvalues.
|
||
* expressions, constructor: Constructors.
|
||
- * expr_list: Insns.
|
||
* extended asm: Extended Asm.
|
||
* extensible constraints: Simple Constraints.
|
||
! * extensions, ?:: Conditionals.
|
||
* extensions, ?:: Lvalues.
|
||
* extensions, C language: C Extensions.
|
||
* extensions, C++ language: C++ Extensions.
|
||
--- 821,838 ----
|
||
* exit status and VMS: VMS Misc.
|
||
* EXIT_BODY: Misc.
|
||
* EXIT_IGNORE_STACK: Function Entry.
|
||
* EXPAND_BUILTIN_SAVEREGS: Varargs.
|
||
+ * expander definitions: Expander Definitions.
|
||
* explicit register variables: Explicit Reg Vars.
|
||
+ * expr_list: Insns.
|
||
* expression codes: RTL Objects.
|
||
* expressions containing statements: Statement Exprs.
|
||
* expressions, compound, as lvalues: Lvalues.
|
||
* expressions, conditional, as lvalues: Lvalues.
|
||
* expressions, constructor: Constructors.
|
||
* extended asm: Extended Asm.
|
||
* extensible constraints: Simple Constraints.
|
||
! * extensions, ?: <1>: Conditionals.
|
||
* extensions, ?:: Lvalues.
|
||
* extensions, C language: C Extensions.
|
||
* extensions, C++ language: C++ Extensions.
|
||
***************
|
||
*** 838,876 ****
|
||
* EXTRA_CC_MODES: Condition Code.
|
||
* EXTRA_CC_NAMES: Condition Code.
|
||
* EXTRA_CONSTRAINT: Register Classes.
|
||
- * EXTRA_SECTIONS: Sections.
|
||
* EXTRA_SECTION_FUNCTIONS: Sections.
|
||
* fabs: C Dialect Options.
|
||
* FAIL: Expander Definitions.
|
||
* fatal signal: Bug Criteria.
|
||
* FATAL_EXIT_CODE: Config.
|
||
* features, optional, in system conventions: Run-time Target.
|
||
* ffs: C Dialect Options.
|
||
- * ffs: Arithmetic.
|
||
* file name suffix: Overall Options.
|
||
* file names: Link Options.
|
||
* files and passes of the compiler: Passes.
|
||
* final pass: Passes.
|
||
- * FINALIZE_PIC: PIC.
|
||
* FINAL_PRESCAN_INSN: Instruction Output.
|
||
* FINAL_REG_PARM_STACK_SPACE: Stack Arguments.
|
||
* final_scan_insn: Function Entry.
|
||
* final_sequence: Instruction Output.
|
||
* FIRST_INSN_ADDRESS: Insn Lengths.
|
||
* FIRST_PARM_OFFSET: Frame Layout.
|
||
* FIRST_PSEUDO_REGISTER: Register Basics.
|
||
* FIRST_STACK_REG: Stack Registers.
|
||
* FIRST_VIRTUAL_REGISTER: Regs and Memory.
|
||
* fix: Conversions.
|
||
- * fix: Conversions.
|
||
* fixed register: Register Basics.
|
||
* FIXED_REGISTERS: Register Basics.
|
||
* fixed_regs: Register Basics.
|
||
* FIXUNS_TRUNC_LIKE_FIX_TRUNC: Misc.
|
||
* flags in RTL expression: Flags.
|
||
* float: Conversions.
|
||
- * FLOATIFY: Library Calls.
|
||
- * floating point and cross compilation: Cross-compilation.
|
||
* FLOAT_ARG_TYPE: Library Calls.
|
||
* float_extend: Conversions.
|
||
* FLOAT_STORE_FLAG_VALUE: Misc.
|
||
--- 841,876 ----
|
||
* EXTRA_CC_MODES: Condition Code.
|
||
* EXTRA_CC_NAMES: Condition Code.
|
||
* EXTRA_CONSTRAINT: Register Classes.
|
||
* EXTRA_SECTION_FUNCTIONS: Sections.
|
||
+ * EXTRA_SECTIONS: Sections.
|
||
* fabs: C Dialect Options.
|
||
* FAIL: Expander Definitions.
|
||
* fatal signal: Bug Criteria.
|
||
* FATAL_EXIT_CODE: Config.
|
||
* features, optional, in system conventions: Run-time Target.
|
||
+ * ffs <1>: Arithmetic.
|
||
* ffs: C Dialect Options.
|
||
* file name suffix: Overall Options.
|
||
* file names: Link Options.
|
||
* files and passes of the compiler: Passes.
|
||
* final pass: Passes.
|
||
* FINAL_PRESCAN_INSN: Instruction Output.
|
||
* FINAL_REG_PARM_STACK_SPACE: Stack Arguments.
|
||
* final_scan_insn: Function Entry.
|
||
* final_sequence: Instruction Output.
|
||
+ * FINALIZE_PIC: PIC.
|
||
* FIRST_INSN_ADDRESS: Insn Lengths.
|
||
* FIRST_PARM_OFFSET: Frame Layout.
|
||
* FIRST_PSEUDO_REGISTER: Register Basics.
|
||
* FIRST_STACK_REG: Stack Registers.
|
||
* FIRST_VIRTUAL_REGISTER: Regs and Memory.
|
||
* fix: Conversions.
|
||
* fixed register: Register Basics.
|
||
* FIXED_REGISTERS: Register Basics.
|
||
* fixed_regs: Register Basics.
|
||
* FIXUNS_TRUNC_LIKE_FIX_TRUNC: Misc.
|
||
* flags in RTL expression: Flags.
|
||
* float: Conversions.
|
||
* FLOAT_ARG_TYPE: Library Calls.
|
||
* float_extend: Conversions.
|
||
* FLOAT_STORE_FLAG_VALUE: Misc.
|
||
***************
|
||
*** 878,883 ****
|
||
--- 878,885 ----
|
||
* FLOAT_TYPE_SIZE: Type Layout.
|
||
* FLOAT_VALUE_TYPE: Library Calls.
|
||
* FLOAT_WORDS_BIG_ENDIAN: Storage Layout.
|
||
+ * FLOATIFY: Library Calls.
|
||
+ * floating point and cross compilation: Cross-compilation.
|
||
* force_reg: Standard Names.
|
||
* forwarding calls: Constructing Calls.
|
||
* frame layout: Frame Layout.
|
||
***************
|
||
*** 894,910 ****
|
||
* function units, for scheduling: Function Units.
|
||
* function, size of pointer to: Pointer Arith.
|
||
* function-call insns: Calls.
|
||
- * functions in arbitrary sections: Function Attributes.
|
||
- * functions that are passed arguments in registers on the 386: Function Attributes.
|
||
- * functions that are passed arguments in registers on the 386: Function Attributes.
|
||
- * functions that do not pop the argument stack on the 386: Function Attributes.
|
||
- * functions that do pop the argument stack on the 386: Function Attributes.
|
||
- * functions that have no side effects: Function Attributes.
|
||
- * functions that never return: Function Attributes.
|
||
- * functions that pop the argument stack on the 386: Function Attributes.
|
||
- * functions that pop the argument stack on the 386: Function Attributes.
|
||
- * functions with printf or scanf style arguments: Function Attributes.
|
||
- * functions, leaf: Leaf Functions.
|
||
* FUNCTION_ARG: Register Arguments.
|
||
* FUNCTION_ARG_ADVANCE: Register Arguments.
|
||
* FUNCTION_ARG_BOUNDARY: Register Arguments.
|
||
--- 896,901 ----
|
||
***************
|
||
*** 924,943 ****
|
||
* FUNCTION_PROLOGUE: Function Entry.
|
||
* FUNCTION_VALUE: Scalar Return.
|
||
* FUNCTION_VALUE_REGNO_P: Scalar Return.
|
||
! * G++: G++ and GCC.
|
||
* g++: Invoking G++.
|
||
* GCC: G++ and GCC.
|
||
* GCC_EXEC_PREFIX: Environment Variables.
|
||
* ge: Comparisons.
|
||
* gencodes: Passes.
|
||
* genconfig: Passes.
|
||
- * generalized lvalues: Lvalues.
|
||
* general_operand: RTL Template.
|
||
* GENERAL_REGS: Register Classes.
|
||
* generating assembler output: Output Statement.
|
||
* generating insns: RTL Template.
|
||
* genflags: Passes.
|
||
- * GEN_ERRNO_RTX: Library Calls.
|
||
* get_attr: Expressions.
|
||
* get_attr_length: Insn Lengths.
|
||
* GET_CLASS_NARROWEST_MODE: Machine Modes.
|
||
--- 915,943 ----
|
||
* FUNCTION_PROLOGUE: Function Entry.
|
||
* FUNCTION_VALUE: Scalar Return.
|
||
* FUNCTION_VALUE_REGNO_P: Scalar Return.
|
||
! * functions in arbitrary sections: Function Attributes.
|
||
! * functions that are passed arguments in registers on the 386: Function Attributes.
|
||
! * functions that do not pop the argument stack on the 386: Function Attributes.
|
||
! * functions that do pop the argument stack on the 386: Function Attributes.
|
||
! * functions that have no side effects: Function Attributes.
|
||
! * functions that never return: Function Attributes.
|
||
! * functions that pop the argument stack on the 386: Function Attributes.
|
||
! * functions with printf or scanf style arguments: Function Attributes.
|
||
! * functions, leaf: Leaf Functions.
|
||
* g++: Invoking G++.
|
||
+ * G++: G++ and GCC.
|
||
* GCC: G++ and GCC.
|
||
* GCC_EXEC_PREFIX: Environment Variables.
|
||
* ge: Comparisons.
|
||
+ * GEN_ERRNO_RTX: Library Calls.
|
||
* gencodes: Passes.
|
||
* genconfig: Passes.
|
||
* general_operand: RTL Template.
|
||
* GENERAL_REGS: Register Classes.
|
||
+ * generalized lvalues: Lvalues.
|
||
* generating assembler output: Output Statement.
|
||
* generating insns: RTL Template.
|
||
* genflags: Passes.
|
||
* get_attr: Expressions.
|
||
* get_attr_length: Insn Lengths.
|
||
* GET_CLASS_NARROWEST_MODE: Machine Modes.
|
||
***************
|
||
*** 969,990 ****
|
||
* GLOBALVALUEREF: Global Declarations.
|
||
* GNU CC and portability: Portability.
|
||
* GNU CC command options: Invoking GCC.
|
||
- * goto with computed label: Labels as Values.
|
||
* GO_IF_LEGITIMATE_ADDRESS: Addressing Modes.
|
||
* GO_IF_MODE_DEPENDENT_ADDRESS: Addressing Modes.
|
||
* gp-relative references (MIPS): MIPS Options.
|
||
* greater than: Comparisons.
|
||
- * greater than: Comparisons.
|
||
- * greater than: Comparisons.
|
||
* grouping options: Invoking GCC.
|
||
* gt: Comparisons.
|
||
* gtu: Comparisons.
|
||
* HANDLE_PRAGMA: Misc.
|
||
* hard registers: Regs and Memory.
|
||
- * hardware models and configurations, specifying: Submodel Options.
|
||
* HARD_FRAME_POINTER_REGNUM: Frame Registers.
|
||
* HARD_REGNO_MODE_OK: Values in Registers.
|
||
* HARD_REGNO_NREGS: Values in Registers.
|
||
* HAS_INIT_SECTION: Macros for Initialization.
|
||
* HAVE_ATEXIT: Misc.
|
||
* HAVE_POST_DECREMENT: Addressing Modes.
|
||
--- 969,988 ----
|
||
* GLOBALVALUEREF: Global Declarations.
|
||
* GNU CC and portability: Portability.
|
||
* GNU CC command options: Invoking GCC.
|
||
* GO_IF_LEGITIMATE_ADDRESS: Addressing Modes.
|
||
* GO_IF_MODE_DEPENDENT_ADDRESS: Addressing Modes.
|
||
+ * goto with computed label: Labels as Values.
|
||
* gp-relative references (MIPS): MIPS Options.
|
||
* greater than: Comparisons.
|
||
* grouping options: Invoking GCC.
|
||
* gt: Comparisons.
|
||
* gtu: Comparisons.
|
||
* HANDLE_PRAGMA: Misc.
|
||
* hard registers: Regs and Memory.
|
||
* HARD_FRAME_POINTER_REGNUM: Frame Registers.
|
||
* HARD_REGNO_MODE_OK: Values in Registers.
|
||
* HARD_REGNO_NREGS: Values in Registers.
|
||
+ * hardware models and configurations, specifying: Submodel Options.
|
||
* HAS_INIT_SECTION: Macros for Initialization.
|
||
* HAVE_ATEXIT: Misc.
|
||
* HAVE_POST_DECREMENT: Addressing Modes.
|
||
***************
|
||
*** 1019,1024 ****
|
||
--- 1017,1025 ----
|
||
* implicit argument: return value: Naming Results.
|
||
* IMPLICIT_FIX_EXPR: Misc.
|
||
* implied #pragma implementation: C++ Interface.
|
||
+ * in_data: Sections.
|
||
+ * in_struct: Flags.
|
||
+ * in_text: Sections.
|
||
* include files and VMS: Include Files and VMS.
|
||
* INCLUDE_DEFAULTS: Driver.
|
||
* inclusive-or, bitwise: Arithmetic.
|
||
***************
|
||
*** 1026,1044 ****
|
||
* incompatibilities of GNU CC: Incompatibilities.
|
||
* increment operators: Bug Criteria.
|
||
* INDEX_REG_CLASS: Register Classes.
|
||
- * initialization routines: Initialization.
|
||
- * initializations in expressions: Constructors.
|
||
- * initializers with labeled elements: Labeled Elements.
|
||
- * initializers, non-constant: Initializers.
|
||
- * INITIALIZE_TRAMPOLINE: Trampolines.
|
||
- * INITIAL_ELIMINATION_OFFSET: Elimination.
|
||
- * INITIAL_FRAME_POINTER_OFFSET: Elimination.
|
||
* INIT_CUMULATIVE_ARGS: Register Arguments.
|
||
* INIT_CUMULATIVE_INCOMING_ARGS: Register Arguments.
|
||
* INIT_ENVIRONMENT: Driver.
|
||
! * INIT_SECTION_ASM_OP: Macros for Initialization.
|
||
* INIT_SECTION_ASM_OP: Sections.
|
||
* INIT_TARGET_OPTABS: Library Calls.
|
||
* inline functions: Inline.
|
||
* inline functions, omission of: Inline.
|
||
* inline, automatic: Passes.
|
||
--- 1027,1045 ----
|
||
* incompatibilities of GNU CC: Incompatibilities.
|
||
* increment operators: Bug Criteria.
|
||
* INDEX_REG_CLASS: Register Classes.
|
||
* INIT_CUMULATIVE_ARGS: Register Arguments.
|
||
* INIT_CUMULATIVE_INCOMING_ARGS: Register Arguments.
|
||
* INIT_ENVIRONMENT: Driver.
|
||
! * INIT_SECTION_ASM_OP <1>: Macros for Initialization.
|
||
* INIT_SECTION_ASM_OP: Sections.
|
||
* INIT_TARGET_OPTABS: Library Calls.
|
||
+ * INITIAL_ELIMINATION_OFFSET: Elimination.
|
||
+ * INITIAL_FRAME_POINTER_OFFSET: Elimination.
|
||
+ * initialization routines: Initialization.
|
||
+ * initializations in expressions: Constructors.
|
||
+ * INITIALIZE_TRAMPOLINE: Trampolines.
|
||
+ * initializers with labeled elements: Labeled Elements.
|
||
+ * initializers, non-constant: Initializers.
|
||
* inline functions: Inline.
|
||
* inline functions, omission of: Inline.
|
||
* inline, automatic: Passes.
|
||
***************
|
||
*** 1049,1057 ****
|
||
* insn lengths, computing: Insn Lengths.
|
||
* insn splitting: Insn Splitting.
|
||
* insn-attr.h: Defining Attributes.
|
||
- * insns: Insns.
|
||
- * insns, generating: RTL Template.
|
||
- * insns, recognizing: RTL Template.
|
||
* INSN_ANNULLED_BRANCH_P: Flags.
|
||
* INSN_CACHE_DEPTH: Trampolines.
|
||
* INSN_CACHE_LINE_WIDTH: Trampolines.
|
||
--- 1050,1055 ----
|
||
***************
|
||
*** 1064,1069 ****
|
||
--- 1062,1070 ----
|
||
* INSN_REFERENCES_ARE_DELAYED: Misc.
|
||
* INSN_SETS_ARE_DELAYED: Misc.
|
||
* INSN_UID: Insns.
|
||
+ * insns: Insns.
|
||
+ * insns, generating: RTL Template.
|
||
+ * insns, recognizing: RTL Template.
|
||
* INSTALL: Host Fragment.
|
||
* installation trouble: Trouble.
|
||
* installing GNU CC: Installation.
|
||
***************
|
||
*** 1074,1083 ****
|
||
* instruction patterns: Patterns.
|
||
* instruction recognizer: Passes.
|
||
* instruction scheduling: Passes.
|
||
- * instruction scheduling: Passes.
|
||
* instruction splitting: Insn Splitting.
|
||
! * integrated: Flags.
|
||
* INTEGRATE_THRESHOLD: Misc.
|
||
* integrating function code: Inline.
|
||
* Intel 386 Options: i386 Options.
|
||
* Interdependence of Patterns: Dependent Patterns.
|
||
--- 1075,1084 ----
|
||
* instruction patterns: Patterns.
|
||
* instruction recognizer: Passes.
|
||
* instruction scheduling: Passes.
|
||
* instruction splitting: Insn Splitting.
|
||
! * INT_TYPE_SIZE: Type Layout.
|
||
* INTEGRATE_THRESHOLD: Misc.
|
||
+ * integrated: Flags.
|
||
* integrating function code: Inline.
|
||
* Intel 386 Options: i386 Options.
|
||
* Interdependence of Patterns: Dependent Patterns.
|
||
***************
|
||
*** 1086,1103 ****
|
||
* intermediate C version, nonexistent: G++ and GCC.
|
||
* INTIFY: Library Calls.
|
||
* introduction: Top.
|
||
- * INT_TYPE_SIZE: Type Layout.
|
||
* invalid assembly code: Bug Criteria.
|
||
* invalid input: Bug Criteria.
|
||
* INVOKE__main: Macros for Initialization.
|
||
* invoking g++: Invoking G++.
|
||
- * in_data: Sections.
|
||
- * in_struct: Flags.
|
||
- * in_text: Sections.
|
||
* ior: Arithmetic.
|
||
* isinf: Cross-compilation.
|
||
* isnan: Cross-compilation.
|
||
- * IS_ASM_LOGICAL_LINE_SEPARATOR: Data Output.
|
||
* jump instruction patterns: Jump Patterns.
|
||
* jump instructions and set: Side Effects.
|
||
* jump optimization: Passes.
|
||
--- 1087,1100 ----
|
||
* intermediate C version, nonexistent: G++ and GCC.
|
||
* INTIFY: Library Calls.
|
||
* introduction: Top.
|
||
* invalid assembly code: Bug Criteria.
|
||
* invalid input: Bug Criteria.
|
||
* INVOKE__main: Macros for Initialization.
|
||
* invoking g++: Invoking G++.
|
||
* ior: Arithmetic.
|
||
+ * IS_ASM_LOGICAL_LINE_SEPARATOR: Data Output.
|
||
* isinf: Cross-compilation.
|
||
* isnan: Cross-compilation.
|
||
* jump instruction patterns: Jump Patterns.
|
||
* jump instructions and set: Side Effects.
|
||
* jump optimization: Passes.
|
||
***************
|
||
*** 1108,1135 ****
|
||
* kernel and user registers (29k): AMD29K Options.
|
||
* keywords, alternate: Alternate Keywords.
|
||
* known causes of trouble: Trouble.
|
||
- * labeled elements in initializers: Labeled Elements.
|
||
- * labels as values: Labels as Values.
|
||
* LABEL_NUSES: Insns.
|
||
* LABEL_OUTSIDE_LOOP_P: Flags.
|
||
* LABEL_PRESERVE_P: Flags.
|
||
* label_ref: Constants.
|
||
* labs: C Dialect Options.
|
||
* language dialect options: C Dialect Options.
|
||
* large bit shifts (88k): M88K Options.
|
||
* large return values: Aggregate Return.
|
||
* LAST_STACK_REG: Stack Registers.
|
||
* LAST_VIRTUAL_REGISTER: Regs and Memory.
|
||
- * LDD_SUFFIX: Macros for Initialization.
|
||
- * ldexp: Cross-compilation.
|
||
* LD_FINI_SWITCH: Macros for Initialization.
|
||
* LD_INIT_SWITCH: Macros for Initialization.
|
||
* le: Comparisons.
|
||
* leaf functions: Leaf Functions.
|
||
* leaf_function: Leaf Functions.
|
||
* leaf_function_p: Standard Names.
|
||
- * LEAF_REGISTERS: Leaf Functions.
|
||
* LEAF_REG_REMAP: Leaf Functions.
|
||
* left rotate: Arithmetic.
|
||
* left shift: Arithmetic.
|
||
* LEGITIMATE_CONSTANT_P: Addressing Modes.
|
||
--- 1105,1132 ----
|
||
* kernel and user registers (29k): AMD29K Options.
|
||
* keywords, alternate: Alternate Keywords.
|
||
* known causes of trouble: Trouble.
|
||
* LABEL_NUSES: Insns.
|
||
* LABEL_OUTSIDE_LOOP_P: Flags.
|
||
* LABEL_PRESERVE_P: Flags.
|
||
* label_ref: Constants.
|
||
+ * labeled elements in initializers: Labeled Elements.
|
||
+ * labels as values: Labels as Values.
|
||
* labs: C Dialect Options.
|
||
* language dialect options: C Dialect Options.
|
||
* large bit shifts (88k): M88K Options.
|
||
* large return values: Aggregate Return.
|
||
* LAST_STACK_REG: Stack Registers.
|
||
* LAST_VIRTUAL_REGISTER: Regs and Memory.
|
||
* LD_FINI_SWITCH: Macros for Initialization.
|
||
* LD_INIT_SWITCH: Macros for Initialization.
|
||
+ * LDD_SUFFIX: Macros for Initialization.
|
||
+ * ldexp: Cross-compilation.
|
||
* le: Comparisons.
|
||
* leaf functions: Leaf Functions.
|
||
* leaf_function: Leaf Functions.
|
||
* leaf_function_p: Standard Names.
|
||
* LEAF_REG_REMAP: Leaf Functions.
|
||
+ * LEAF_REGISTERS: Leaf Functions.
|
||
* left rotate: Arithmetic.
|
||
* left shift: Arithmetic.
|
||
* LEGITIMATE_CONSTANT_P: Addressing Modes.
|
||
***************
|
||
*** 1140,1145 ****
|
||
--- 1137,1143 ----
|
||
* less than or equal: Comparisons.
|
||
* leu: Comparisons.
|
||
* LIB2FUNCS_EXTRA: Target Fragment.
|
||
+ * LIB_SPEC: Driver.
|
||
* LIBCALL_VALUE: Scalar Return.
|
||
* LIBGCC1: Target Fragment.
|
||
* LIBGCC2_CFLAGS: Target Fragment.
|
||
***************
|
||
*** 1149,1160 ****
|
||
* Libraries: Link Options.
|
||
* library subroutine names: Library Calls.
|
||
* LIBRARY_PATH: Environment Variables.
|
||
- * LIB_SPEC: Driver.
|
||
* LIMIT_RELOAD_CLASS: Register Classes.
|
||
* link options: Link Options.
|
||
* LINK_LIBGCC_SPECIAL: Driver.
|
||
* LINK_LIBGCC_SPECIAL_1: Driver.
|
||
* LINK_SPEC: Driver.
|
||
* load address instruction: Simple Constraints.
|
||
* LOAD_EXTEND_OP: Misc.
|
||
* local labels: Local Labels.
|
||
--- 1147,1158 ----
|
||
* Libraries: Link Options.
|
||
* library subroutine names: Library Calls.
|
||
* LIBRARY_PATH: Environment Variables.
|
||
* LIMIT_RELOAD_CLASS: Register Classes.
|
||
* link options: Link Options.
|
||
* LINK_LIBGCC_SPECIAL: Driver.
|
||
* LINK_LIBGCC_SPECIAL_1: Driver.
|
||
* LINK_SPEC: Driver.
|
||
+ * lo_sum: Arithmetic.
|
||
* load address instruction: Simple Constraints.
|
||
* LOAD_EXTEND_OP: Misc.
|
||
* local labels: Local Labels.
|
||
***************
|
||
*** 1163,1177 ****
|
||
* local variables, specifying registers: Local Reg Vars.
|
||
* LOCAL_INCLUDE_DIR: Driver.
|
||
* LOCAL_LABEL_PREFIX: Instruction Output.
|
||
- * logical-and, bitwise: Arithmetic.
|
||
* LOG_LINKS: Insns.
|
||
! * longjmp: Global Reg Vars.
|
||
! * LONGJMP_RESTORE_FROM_STACK: Elimination.
|
||
* LONG_DOUBLE_TYPE_SIZE: Type Layout.
|
||
* LONG_LONG_TYPE_SIZE: Type Layout.
|
||
* LONG_TYPE_SIZE: Type Layout.
|
||
* loop optimization: Passes.
|
||
- * lo_sum: Arithmetic.
|
||
* lshiftrt: Arithmetic.
|
||
* lt: Comparisons.
|
||
* ltu: Comparisons.
|
||
--- 1161,1174 ----
|
||
* local variables, specifying registers: Local Reg Vars.
|
||
* LOCAL_INCLUDE_DIR: Driver.
|
||
* LOCAL_LABEL_PREFIX: Instruction Output.
|
||
* LOG_LINKS: Insns.
|
||
! * logical-and, bitwise: Arithmetic.
|
||
* LONG_DOUBLE_TYPE_SIZE: Type Layout.
|
||
* LONG_LONG_TYPE_SIZE: Type Layout.
|
||
* LONG_TYPE_SIZE: Type Layout.
|
||
+ * longjmp: Global Reg Vars.
|
||
+ * LONGJMP_RESTORE_FROM_STACK: Elimination.
|
||
* loop optimization: Passes.
|
||
* lshiftrt: Arithmetic.
|
||
* lt: Comparisons.
|
||
* ltu: Comparisons.
|
||
***************
|
||
*** 1194,1213 ****
|
||
* macros, target description: Target Macros.
|
||
* macros, types of arguments: Typeof.
|
||
* make: Preprocessor Options.
|
||
- * makefile fragment: Fragments.
|
||
* make_safe_from: Expander Definitions.
|
||
! * matching constraint: Simple Constraints.
|
||
! * matching operands: Output Template.
|
||
* match_dup: RTL Template.
|
||
* match_operand: RTL Template.
|
||
* match_operator: RTL Template.
|
||
- * match_op_dup: RTL Template.
|
||
- * match_parallel: RTL Template.
|
||
* match_par_dup: RTL Template.
|
||
* match_scratch: RTL Template.
|
||
* math libraries: Interface.
|
||
* math, in RTL: Arithmetic.
|
||
- * maximum operator: Min and Max.
|
||
* MAX_BITS_PER_WORD: Storage Layout.
|
||
* MAX_CHAR_TYPE_SIZE: Type Layout.
|
||
* MAX_FIXED_MODE_SIZE: Storage Layout.
|
||
--- 1191,1209 ----
|
||
* macros, target description: Target Macros.
|
||
* macros, types of arguments: Typeof.
|
||
* make: Preprocessor Options.
|
||
* make_safe_from: Expander Definitions.
|
||
! * makefile fragment: Fragments.
|
||
* match_dup: RTL Template.
|
||
+ * match_op_dup: RTL Template.
|
||
* match_operand: RTL Template.
|
||
* match_operator: RTL Template.
|
||
* match_par_dup: RTL Template.
|
||
+ * match_parallel: RTL Template.
|
||
* match_scratch: RTL Template.
|
||
+ * matching constraint: Simple Constraints.
|
||
+ * matching operands: Output Template.
|
||
* math libraries: Interface.
|
||
* math, in RTL: Arithmetic.
|
||
* MAX_BITS_PER_WORD: Storage Layout.
|
||
* MAX_CHAR_TYPE_SIZE: Type Layout.
|
||
* MAX_FIXED_MODE_SIZE: Storage Layout.
|
||
***************
|
||
*** 1217,1222 ****
|
||
--- 1213,1219 ----
|
||
* MAX_OFILE_ALIGNMENT: Storage Layout.
|
||
* MAX_REGS_PER_ADDRESS: Addressing Modes.
|
||
* MAX_WCHAR_TYPE_SIZE: Type Layout.
|
||
+ * maximum operator: Min and Max.
|
||
* MAYBE_REG_PARM_STACK_SPACE: Stack Arguments.
|
||
* mcount: Profiling.
|
||
* MD_CALL_PROTOTYPES: Config.
|
||
***************
|
||
*** 1224,1229 ****
|
||
--- 1221,1228 ----
|
||
* MD_STARTFILE_PREFIX: Driver.
|
||
* MD_STARTFILE_PREFIX_1: Driver.
|
||
* mem: Regs and Memory.
|
||
+ * MEM_IN_STRUCT_P: Flags.
|
||
+ * MEM_VOLATILE_P: Flags.
|
||
* member fns, automatically inline: Inline.
|
||
* memcmp: C Dialect Options.
|
||
* memcpy: C Dialect Options.
|
||
***************
|
||
*** 1231,1250 ****
|
||
* memory reference, nonoffsettable: Simple Constraints.
|
||
* memory references in constraints: Simple Constraints.
|
||
* MEMORY_MOVE_COST: Costs.
|
||
- * MEM_IN_STRUCT_P: Flags.
|
||
- * MEM_VOLATILE_P: Flags.
|
||
* messages, warning: Warning Options.
|
||
* messages, warning and error: Warnings and Errors.
|
||
* middle-operands, omitted: Conditionals.
|
||
* minimum operator: Min and Max.
|
||
* minus: Arithmetic.
|
||
- * MIN_UNITS_PER_WORD: Storage Layout.
|
||
* MIPS options: MIPS Options.
|
||
* misunderstandings in C++: C++ Misunderstandings.
|
||
* mod: Arithmetic.
|
||
* MODDI3_LIBCALL: Library Calls.
|
||
* mode classes: Machine Modes.
|
||
- * MODES_TIEABLE_P: Values in Registers.
|
||
* MODE_CC: Machine Modes.
|
||
* MODE_COMPLEX_FLOAT: Machine Modes.
|
||
* MODE_COMPLEX_INT: Machine Modes.
|
||
--- 1230,1246 ----
|
||
* memory reference, nonoffsettable: Simple Constraints.
|
||
* memory references in constraints: Simple Constraints.
|
||
* MEMORY_MOVE_COST: Costs.
|
||
* messages, warning: Warning Options.
|
||
* messages, warning and error: Warnings and Errors.
|
||
* middle-operands, omitted: Conditionals.
|
||
+ * MIN_UNITS_PER_WORD: Storage Layout.
|
||
* minimum operator: Min and Max.
|
||
* minus: Arithmetic.
|
||
* MIPS options: MIPS Options.
|
||
* misunderstandings in C++: C++ Misunderstandings.
|
||
* mod: Arithmetic.
|
||
* MODDI3_LIBCALL: Library Calls.
|
||
* mode classes: Machine Modes.
|
||
* MODE_CC: Machine Modes.
|
||
* MODE_COMPLEX_FLOAT: Machine Modes.
|
||
* MODE_COMPLEX_INT: Machine Modes.
|
||
***************
|
||
*** 1253,1258 ****
|
||
--- 1249,1255 ----
|
||
* MODE_INT: Machine Modes.
|
||
* MODE_PARTIAL_INT: Machine Modes.
|
||
* MODE_RANDOM: Machine Modes.
|
||
+ * MODES_TIEABLE_P: Values in Registers.
|
||
* modifiers in constraints: Modifiers.
|
||
* MODSI3_LIBCALL: Library Calls.
|
||
* MOVE_MAX: Misc.
|
||
***************
|
||
*** 1268,1273 ****
|
||
--- 1265,1271 ----
|
||
* multiple alternative constraints: Multi-Alternative.
|
||
* multiplication: Arithmetic.
|
||
* multiprecision arithmetic: Long Long.
|
||
+ * N_REG_CLASSES: Register Classes.
|
||
* name augmentation: VMS Misc.
|
||
* named patterns and conditions: Patterns.
|
||
* named return value in C++: Naming Results.
|
||
***************
|
||
*** 1286,1297 ****
|
||
* nil: RTL Objects.
|
||
* no constraints: No Constraints.
|
||
* no-op move instructions: Passes.
|
||
* non-constant initializers: Initializers.
|
||
* non-static inline function: Inline.
|
||
* nongcc_SI_type: Library Calls.
|
||
* nongcc_word_type: Library Calls.
|
||
* nonoffsettable memory reference: Simple Constraints.
|
||
- * NON_SAVING_SETJMP: Register Basics.
|
||
* not: Arithmetic.
|
||
* not equal: Comparisons.
|
||
* not using constraints: No Constraints.
|
||
--- 1284,1306 ----
|
||
* nil: RTL Objects.
|
||
* no constraints: No Constraints.
|
||
* no-op move instructions: Passes.
|
||
+ * NO_BUILTIN_PTRDIFF_TYPE: Driver.
|
||
+ * NO_BUILTIN_SIZE_TYPE: Driver.
|
||
+ * NO_DOLLAR_IN_LABEL: Misc.
|
||
+ * NO_DOT_IN_LABEL: Misc.
|
||
+ * NO_FUNCTION_CSE: Costs.
|
||
+ * NO_IMPLICIT_EXTERN_C: Misc.
|
||
+ * NO_MD_PROTOTYPES: Config.
|
||
+ * NO_RECURSIVE_FUNCTION_CSE: Costs.
|
||
+ * NO_REGS: Register Classes.
|
||
+ * NO_STAB_H: Config.
|
||
+ * NO_SYS_SIGLIST: Config.
|
||
* non-constant initializers: Initializers.
|
||
* non-static inline function: Inline.
|
||
+ * NON_SAVING_SETJMP: Register Basics.
|
||
* nongcc_SI_type: Library Calls.
|
||
* nongcc_word_type: Library Calls.
|
||
* nonoffsettable memory reference: Simple Constraints.
|
||
* not: Arithmetic.
|
||
* not equal: Comparisons.
|
||
* not using constraints: No Constraints.
|
||
***************
|
||
*** 1308,1335 ****
|
||
* NOTE_LINE_NUMBER: Insns.
|
||
* NOTE_SOURCE_FILE: Insns.
|
||
* NOTICE_UPDATE_CC: Condition Code.
|
||
- * NO_BUILTIN_PTRDIFF_TYPE: Driver.
|
||
- * NO_BUILTIN_SIZE_TYPE: Driver.
|
||
- * NO_DOLLAR_IN_LABEL: Misc.
|
||
- * NO_DOT_IN_LABEL: Misc.
|
||
- * NO_FUNCTION_CSE: Costs.
|
||
- * NO_IMPLICIT_EXTERN_C: Misc.
|
||
- * NO_MD_PROTOTYPES: Config.
|
||
- * NO_RECURSIVE_FUNCTION_CSE: Costs.
|
||
- * NO_REGS: Register Classes.
|
||
- * NO_STAB_H: Config.
|
||
- * NO_SYS_SIGLIST: Config.
|
||
* NUM_MACHINE_MODES: Machine Modes.
|
||
- * N_REG_CLASSES: Register Classes.
|
||
* OBJC_GEN_METHOD_LABEL: Label Output.
|
||
* OBJC_INCLUDE_PATH: Environment Variables.
|
||
* OBJC_INT_SELECTORS: Type Layout.
|
||
* OBJC_PROLOGUE: File Framework.
|
||
* OBJC_SELECTORS_WITHOUT_LABELS: Type Layout.
|
||
- * Objective C: G++ and GCC.
|
||
* OBJECT_FORMAT_COFF: Macros for Initialization.
|
||
* OBJECT_FORMAT_ROSE: Macros for Initialization.
|
||
* OBJECT_SUFFIX: Config.
|
||
* OBSTACK_CHUNK_ALLOC: Config.
|
||
* OBSTACK_CHUNK_FREE: Config.
|
||
* OBSTACK_CHUNK_SIZE: Config.
|
||
--- 1317,1332 ----
|
||
* NOTE_LINE_NUMBER: Insns.
|
||
* NOTE_SOURCE_FILE: Insns.
|
||
* NOTICE_UPDATE_CC: Condition Code.
|
||
* NUM_MACHINE_MODES: Machine Modes.
|
||
* OBJC_GEN_METHOD_LABEL: Label Output.
|
||
* OBJC_INCLUDE_PATH: Environment Variables.
|
||
* OBJC_INT_SELECTORS: Type Layout.
|
||
* OBJC_PROLOGUE: File Framework.
|
||
* OBJC_SELECTORS_WITHOUT_LABELS: Type Layout.
|
||
* OBJECT_FORMAT_COFF: Macros for Initialization.
|
||
* OBJECT_FORMAT_ROSE: Macros for Initialization.
|
||
* OBJECT_SUFFIX: Config.
|
||
+ * Objective C: G++ and GCC.
|
||
* OBSTACK_CHUNK_ALLOC: Config.
|
||
* OBSTACK_CHUNK_FREE: Config.
|
||
* OBSTACK_CHUNK_SIZE: Config.
|
||
***************
|
||
*** 1364,1374 ****
|
||
* order of evaluation, side effects: Non-bugs.
|
||
* order of options: Invoking GCC.
|
||
* order of register allocation: Allocation Order.
|
||
- * Ordering of Patterns: Pattern Ordering.
|
||
* ORDER_REGS_FOR_LOCAL_ALLOC: Allocation Order.
|
||
* other directory, compilation in: Other Dir.
|
||
- * OUTGOING_REGNO: Register Basics.
|
||
* OUTGOING_REG_PARM_STACK_SPACE: Stack Arguments.
|
||
* output file option: Overall Options.
|
||
* output of assembler code: File Framework.
|
||
* output statements: Output Statement.
|
||
--- 1361,1371 ----
|
||
* order of evaluation, side effects: Non-bugs.
|
||
* order of options: Invoking GCC.
|
||
* order of register allocation: Allocation Order.
|
||
* ORDER_REGS_FOR_LOCAL_ALLOC: Allocation Order.
|
||
+ * Ordering of Patterns: Pattern Ordering.
|
||
* other directory, compilation in: Other Dir.
|
||
* OUTGOING_REG_PARM_STACK_SPACE: Stack Arguments.
|
||
+ * OUTGOING_REGNO: Register Basics.
|
||
* output file option: Overall Options.
|
||
* output of assembler code: File Framework.
|
||
* output statements: Output Statement.
|
||
***************
|
||
*** 1383,1390 ****
|
||
* parameter forward declaration: Variable Length.
|
||
* parameters, miscellaneous: Misc.
|
||
* PARM_BOUNDARY: Storage Layout.
|
||
- * parser generator, Bison: Installation.
|
||
* PARSE_LDD_OUTPUT: Macros for Initialization.
|
||
* parsing pass: Passes.
|
||
* passes and files of the compiler: Passes.
|
||
* passing arguments: Interface.
|
||
--- 1380,1387 ----
|
||
* parameter forward declaration: Variable Length.
|
||
* parameters, miscellaneous: Misc.
|
||
* PARM_BOUNDARY: Storage Layout.
|
||
* PARSE_LDD_OUTPUT: Macros for Initialization.
|
||
+ * parser generator, Bison: Installation.
|
||
* parsing pass: Passes.
|
||
* passes and files of the compiler: Passes.
|
||
* passing arguments: Interface.
|
||
***************
|
||
*** 1395,1418 ****
|
||
* Pattern Ordering: Pattern Ordering.
|
||
* patterns: Patterns.
|
||
* pc: Regs and Memory.
|
||
* PCC_BITFIELD_TYPE_MATTERS: Storage Layout.
|
||
* PCC_STATIC_STRUCT_RETURN: Aggregate Return.
|
||
- * pc_rtx: Regs and Memory.
|
||
* PDImode: Machine Modes.
|
||
* peephole optimization: Passes.
|
||
* peephole optimization, RTL representation: Side Effects.
|
||
* peephole optimizer definitions: Peephole Definitions.
|
||
* percent sign: Output Template.
|
||
* perform_...: Library Calls.
|
||
* PIC: Code Gen Options.
|
||
- * PIC: PIC.
|
||
- * PIC_OFFSET_TABLE_REGNUM: PIC.
|
||
* PIC_OFFSET_TABLE_REG_CALL_CLOBBERED: PIC.
|
||
* plus: Arithmetic.
|
||
* Pmode: Misc.
|
||
* pointer arguments: Function Attributes.
|
||
- * POINTERS_EXTEND_UNSIGNED: Storage Layout.
|
||
* POINTER_SIZE: Storage Layout.
|
||
* portability: Portability.
|
||
* portions of temporary objects, pointers to: Temporaries.
|
||
* position independent code: PIC.
|
||
--- 1392,1415 ----
|
||
* Pattern Ordering: Pattern Ordering.
|
||
* patterns: Patterns.
|
||
* pc: Regs and Memory.
|
||
+ * pc_rtx: Regs and Memory.
|
||
* PCC_BITFIELD_TYPE_MATTERS: Storage Layout.
|
||
* PCC_STATIC_STRUCT_RETURN: Aggregate Return.
|
||
* PDImode: Machine Modes.
|
||
* peephole optimization: Passes.
|
||
* peephole optimization, RTL representation: Side Effects.
|
||
* peephole optimizer definitions: Peephole Definitions.
|
||
* percent sign: Output Template.
|
||
* perform_...: Library Calls.
|
||
+ * PIC <1>: PIC.
|
||
* PIC: Code Gen Options.
|
||
* PIC_OFFSET_TABLE_REG_CALL_CLOBBERED: PIC.
|
||
+ * PIC_OFFSET_TABLE_REGNUM: PIC.
|
||
* plus: Arithmetic.
|
||
* Pmode: Misc.
|
||
* pointer arguments: Function Attributes.
|
||
* POINTER_SIZE: Storage Layout.
|
||
+ * POINTERS_EXTEND_UNSIGNED: Storage Layout.
|
||
* portability: Portability.
|
||
* portions of temporary objects, pointers to: Temporaries.
|
||
* position independent code: PIC.
|
||
***************
|
||
*** 1423,1428 ****
|
||
--- 1420,1427 ----
|
||
* pragma, reason for not using: Function Attributes.
|
||
* pragmas in C++, effect on inlining: C++ Interface.
|
||
* pragmas, interface and implementation: C++ Interface.
|
||
+ * pre_dec: Incdec.
|
||
+ * pre_inc: Incdec.
|
||
* predefined macros: Run-time Target.
|
||
* PREDICATE_CODES: Misc.
|
||
* PREFERRED_DEBUGGING_TYPE: All Debuggers.
|
||
***************
|
||
*** 1435,1442 ****
|
||
* prev_active_insn: Peephole Definitions.
|
||
* prev_cc0_setter: Jump Patterns.
|
||
* PREV_INSN: Insns.
|
||
- * pre_dec: Incdec.
|
||
- * pre_inc: Incdec.
|
||
* PRINT_OPERAND: Instruction Output.
|
||
* PRINT_OPERAND_ADDRESS: Instruction Output.
|
||
* PRINT_OPERAND_PUNCT_VALID_P: Instruction Output.
|
||
--- 1434,1439 ----
|
||
***************
|
||
*** 1457,1467 ****
|
||
* PTRDIFF_TYPE: Type Layout.
|
||
* push address instruction: Simple Constraints.
|
||
* PUSH_ROUNDING: Stack Arguments.
|
||
- * putenv: Config.
|
||
* PUT_CODE: RTL Objects.
|
||
* PUT_MODE: Machine Modes.
|
||
* PUT_REG_NOTE_KIND: Insns.
|
||
* PUT_SDB_...: SDB and DWARF.
|
||
* QImode: Machine Modes.
|
||
* question mark: Multi-Alternative.
|
||
* quotient: Arithmetic.
|
||
--- 1454,1464 ----
|
||
* PTRDIFF_TYPE: Type Layout.
|
||
* push address instruction: Simple Constraints.
|
||
* PUSH_ROUNDING: Stack Arguments.
|
||
* PUT_CODE: RTL Objects.
|
||
* PUT_MODE: Machine Modes.
|
||
* PUT_REG_NOTE_KIND: Insns.
|
||
* PUT_SDB_...: SDB and DWARF.
|
||
+ * putenv: Config.
|
||
* QImode: Machine Modes.
|
||
* question mark: Multi-Alternative.
|
||
* quotient: Arithmetic.
|
||
***************
|
||
*** 1472,1479 ****
|
||
* REAL_ARITHMETIC: Cross-compilation.
|
||
* REAL_INFINITY: Cross-compilation.
|
||
* REAL_NM_FILE_NAME: Macros for Initialization.
|
||
- * REAL_VALUES_EQUAL: Cross-compilation.
|
||
- * REAL_VALUES_LESS: Cross-compilation.
|
||
* REAL_VALUE_ATOF: Cross-compilation.
|
||
* REAL_VALUE_FIX: Cross-compilation.
|
||
* REAL_VALUE_FROM_INT: Cross-compilation.
|
||
--- 1469,1474 ----
|
||
***************
|
||
*** 1491,1527 ****
|
||
* REAL_VALUE_TYPE: Cross-compilation.
|
||
* REAL_VALUE_UNSIGNED_FIX: Cross-compilation.
|
||
* REAL_VALUE_UNSIGNED_RNDZINT: Cross-compilation.
|
||
! * recognizing insns: RTL Template.
|
||
* recog_operand: Instruction Output.
|
||
* reg: Regs and Memory.
|
||
- * register allocation: Passes.
|
||
- * register allocation order: Allocation Order.
|
||
- * register allocation, stupid: Passes.
|
||
- * register class definitions: Register Classes.
|
||
- * register class preference constraints: Class Preferences.
|
||
- * register class preference pass: Passes.
|
||
- * register pairs: Values in Registers.
|
||
- * register positions in frame (88k): M88K Options.
|
||
- * register positions in frame (88k): M88K Options.
|
||
- * Register Transfer Language (RTL): RTL.
|
||
- * register usage: Registers.
|
||
- * register use analysis: Passes.
|
||
- * register variable after longjmp: Global Reg Vars.
|
||
- * register-to-stack conversion: Passes.
|
||
- * registers: Extended Asm.
|
||
- * registers arguments: Register Arguments.
|
||
- * registers for local variables: Local Reg Vars.
|
||
- * registers in constraints: Simple Constraints.
|
||
- * registers, global allocation: Explicit Reg Vars.
|
||
- * registers, global variables in: Global Reg Vars.
|
||
- * REGISTER_MOVE_COST: Costs.
|
||
- * REGISTER_NAMES: Instruction Output.
|
||
- * register_operand: RTL Template.
|
||
- * REGISTER_PREFIX: Instruction Output.
|
||
- * REGNO_OK_FOR_BASE_P: Register Classes.
|
||
- * REGNO_OK_FOR_INDEX_P: Register Classes.
|
||
- * REGNO_REG_CLASS: Register Classes.
|
||
- * regs_ever_live: Function Entry.
|
||
* REG_ALLOC_ORDER: Allocation Order.
|
||
* REG_CC_SETTER: Insns.
|
||
* REG_CC_USER: Insns.
|
||
--- 1486,1496 ----
|
||
* REAL_VALUE_TYPE: Cross-compilation.
|
||
* REAL_VALUE_UNSIGNED_FIX: Cross-compilation.
|
||
* REAL_VALUE_UNSIGNED_RNDZINT: Cross-compilation.
|
||
! * REAL_VALUES_EQUAL: Cross-compilation.
|
||
! * REAL_VALUES_LESS: Cross-compilation.
|
||
* recog_operand: Instruction Output.
|
||
+ * recognizing insns: RTL Template.
|
||
* reg: Regs and Memory.
|
||
* REG_ALLOC_ORDER: Allocation Order.
|
||
* REG_CC_SETTER: Insns.
|
||
* REG_CC_USER: Insns.
|
||
***************
|
||
*** 1539,1548 ****
|
||
* REG_LIBCALL: Insns.
|
||
* REG_LOOP_TEST_P: Flags.
|
||
* reg_names: Instruction Output.
|
||
* REG_NONNEG: Insns.
|
||
- * REG_NOTES: Insns.
|
||
* REG_NOTE_KIND: Insns.
|
||
! * REG_NO_CONFLICT: Insns.
|
||
* REG_OK_FOR_BASE_P: Addressing Modes.
|
||
* REG_OK_FOR_INDEX_P: Addressing Modes.
|
||
* REG_OK_STRICT: Addressing Modes.
|
||
--- 1508,1517 ----
|
||
* REG_LIBCALL: Insns.
|
||
* REG_LOOP_TEST_P: Flags.
|
||
* reg_names: Instruction Output.
|
||
+ * REG_NO_CONFLICT: Insns.
|
||
* REG_NONNEG: Insns.
|
||
* REG_NOTE_KIND: Insns.
|
||
! * REG_NOTES: Insns.
|
||
* REG_OK_FOR_BASE_P: Addressing Modes.
|
||
* REG_OK_FOR_INDEX_P: Addressing Modes.
|
||
* REG_OK_STRICT: Addressing Modes.
|
||
***************
|
||
*** 1551,1562 ****
|
||
* REG_UNUSED: Insns.
|
||
* REG_USERVAR_P: Flags.
|
||
* REG_WAS_0: Insns.
|
||
* relative costs: Costs.
|
||
* RELATIVE_PREFIX_NOT_LINKDIR: Driver.
|
||
* reload pass: Regs and Memory.
|
||
- * reloading: Passes.
|
||
* reload_completed: Standard Names.
|
||
* reload_in_progress: Standard Names.
|
||
* remainder: Arithmetic.
|
||
* reordering, warning: Warning Options.
|
||
* reporting bugs: Bugs.
|
||
--- 1520,1558 ----
|
||
* REG_UNUSED: Insns.
|
||
* REG_USERVAR_P: Flags.
|
||
* REG_WAS_0: Insns.
|
||
+ * register allocation: Passes.
|
||
+ * register allocation order: Allocation Order.
|
||
+ * register allocation, stupid: Passes.
|
||
+ * register class definitions: Register Classes.
|
||
+ * register class preference constraints: Class Preferences.
|
||
+ * register class preference pass: Passes.
|
||
+ * register pairs: Values in Registers.
|
||
+ * register positions in frame (88k): M88K Options.
|
||
+ * Register Transfer Language (RTL): RTL.
|
||
+ * register usage: Registers.
|
||
+ * register use analysis: Passes.
|
||
+ * register variable after longjmp: Global Reg Vars.
|
||
+ * register-to-stack conversion: Passes.
|
||
+ * REGISTER_MOVE_COST: Costs.
|
||
+ * REGISTER_NAMES: Instruction Output.
|
||
+ * register_operand: RTL Template.
|
||
+ * REGISTER_PREFIX: Instruction Output.
|
||
+ * registers: Extended Asm.
|
||
+ * registers arguments: Register Arguments.
|
||
+ * registers for local variables: Local Reg Vars.
|
||
+ * registers in constraints: Simple Constraints.
|
||
+ * registers, global allocation: Explicit Reg Vars.
|
||
+ * registers, global variables in: Global Reg Vars.
|
||
+ * REGNO_OK_FOR_BASE_P: Register Classes.
|
||
+ * REGNO_OK_FOR_INDEX_P: Register Classes.
|
||
+ * REGNO_REG_CLASS: Register Classes.
|
||
+ * regs_ever_live: Function Entry.
|
||
* relative costs: Costs.
|
||
* RELATIVE_PREFIX_NOT_LINKDIR: Driver.
|
||
* reload pass: Regs and Memory.
|
||
* reload_completed: Standard Names.
|
||
* reload_in_progress: Standard Names.
|
||
+ * reloading: Passes.
|
||
* remainder: Arithmetic.
|
||
* reordering, warning: Warning Options.
|
||
* reporting bugs: Bugs.
|
||
***************
|
||
*** 1568,1584 ****
|
||
* return value of main: VMS Misc.
|
||
* return value, named, in C++: Naming Results.
|
||
* return values in registers: Scalar Return.
|
||
- * returning aggregate values: Aggregate Return.
|
||
- * returning structures and unions: Interface.
|
||
* RETURN_ADDR_IN_PREVIOUS_FRAME: Frame Layout.
|
||
* RETURN_ADDR_RTX: Frame Layout.
|
||
* RETURN_IN_MEMORY: Aggregate Return.
|
||
* RETURN_POPS_ARGS: Stack Arguments.
|
||
* REVERSIBLE_CC_MODE: Condition Code.
|
||
* right rotate: Arithmetic.
|
||
* right shift: Arithmetic.
|
||
* rotate: Arithmetic.
|
||
- * rotate: Arithmetic.
|
||
* rotatert: Arithmetic.
|
||
* ROUND_TYPE_ALIGN: Storage Layout.
|
||
* ROUND_TYPE_SIZE: Storage Layout.
|
||
--- 1564,1579 ----
|
||
* return value of main: VMS Misc.
|
||
* return value, named, in C++: Naming Results.
|
||
* return values in registers: Scalar Return.
|
||
* RETURN_ADDR_IN_PREVIOUS_FRAME: Frame Layout.
|
||
* RETURN_ADDR_RTX: Frame Layout.
|
||
* RETURN_IN_MEMORY: Aggregate Return.
|
||
* RETURN_POPS_ARGS: Stack Arguments.
|
||
+ * returning aggregate values: Aggregate Return.
|
||
+ * returning structures and unions: Interface.
|
||
* REVERSIBLE_CC_MODE: Condition Code.
|
||
* right rotate: Arithmetic.
|
||
* right shift: Arithmetic.
|
||
* rotate: Arithmetic.
|
||
* rotatert: Arithmetic.
|
||
* ROUND_TYPE_ALIGN: Storage Layout.
|
||
* ROUND_TYPE_SIZE: Storage Layout.
|
||
***************
|
||
*** 1624,1633 ****
|
||
* saveable_obstack: Addressing Modes.
|
||
* scalars, returned as values: Scalar Return.
|
||
* SCCS_DIRECTIVE: Misc.
|
||
* scheduling, delayed branch: Passes.
|
||
* scheduling, instruction: Passes.
|
||
- * scheduling, instruction: Passes.
|
||
- * SCHED_GROUP_P: Flags.
|
||
* SCmode: Machine Modes.
|
||
* scope of a variable length array: Variable Length.
|
||
* scope of declaration: Disappointments.
|
||
--- 1619,1627 ----
|
||
* saveable_obstack: Addressing Modes.
|
||
* scalars, returned as values: Scalar Return.
|
||
* SCCS_DIRECTIVE: Misc.
|
||
+ * SCHED_GROUP_P: Flags.
|
||
* scheduling, delayed branch: Passes.
|
||
* scheduling, instruction: Passes.
|
||
* SCmode: Machine Modes.
|
||
* scope of a variable length array: Variable Length.
|
||
* scope of declaration: Disappointments.
|
||
***************
|
||
*** 1654,1667 ****
|
||
* sequence: Side Effects.
|
||
* sequential consistency on 88k: M88K Options.
|
||
* set: Side Effects.
|
||
- * setjmp: Global Reg Vars.
|
||
- * SETUP_FRAME_ADDRESSES: Frame Layout.
|
||
- * SETUP_INCOMING_VARARGS: Varargs.
|
||
* set_attr: Tagging Insns.
|
||
* set_attr_alternative: Tagging Insns.
|
||
* SET_DEFAULT_TYPE_ATTRIBUTES: Misc.
|
||
* SET_DEST: Side Effects.
|
||
* SET_SRC: Side Effects.
|
||
* SFmode: Machine Modes.
|
||
* shared strings: Incompatibilities.
|
||
* shared VMS run time system: VMS Misc.
|
||
--- 1648,1661 ----
|
||
* sequence: Side Effects.
|
||
* sequential consistency on 88k: M88K Options.
|
||
* set: Side Effects.
|
||
* set_attr: Tagging Insns.
|
||
* set_attr_alternative: Tagging Insns.
|
||
* SET_DEFAULT_TYPE_ATTRIBUTES: Misc.
|
||
* SET_DEST: Side Effects.
|
||
* SET_SRC: Side Effects.
|
||
+ * setjmp: Global Reg Vars.
|
||
+ * SETUP_FRAME_ADDRESSES: Frame Layout.
|
||
+ * SETUP_INCOMING_VARARGS: Varargs.
|
||
* SFmode: Machine Modes.
|
||
* shared strings: Incompatibilities.
|
||
* shared VMS run time system: VMS Misc.
|
||
***************
|
||
*** 1673,1678 ****
|
||
--- 1667,1674 ----
|
||
* side effect in ?:: Conditionals.
|
||
* side effects, macro argument: Statement Exprs.
|
||
* side effects, order of evaluation: Non-bugs.
|
||
+ * sign_extend: Conversions.
|
||
+ * sign_extract: Bit Fields.
|
||
* signature: C++ Signatures.
|
||
* signature member function default implementation: C++ Signatures.
|
||
* signatures, C++: C++ Signatures.
|
||
***************
|
||
*** 1680,1699 ****
|
||
* signed maximum: Arithmetic.
|
||
* signed minimum: Arithmetic.
|
||
* SIGNED_CHAR_SPEC: Driver.
|
||
- * sign_extend: Conversions.
|
||
- * sign_extract: Bit Fields.
|
||
* SImode: Machine Modes.
|
||
* simple constraints: Simple Constraints.
|
||
* simplifications, arithmetic: Passes.
|
||
* sin: C Dialect Options.
|
||
- * sizeof: Typeof.
|
||
* SIZE_TYPE: Type Layout.
|
||
* SLOW_BYTE_ACCESS: Costs.
|
||
* SLOW_UNALIGNED_ACCESS: Costs.
|
||
* SLOW_ZERO_EXTEND: Costs.
|
||
* smaller data references (88k): M88K Options.
|
||
* smaller data references (MIPS): MIPS Options.
|
||
- * SMALL_REGISTER_CLASSES: Register Classes.
|
||
* smax: Arithmetic.
|
||
* smin: Arithmetic.
|
||
* SPARC options: SPARC Options.
|
||
--- 1676,1693 ----
|
||
* signed maximum: Arithmetic.
|
||
* signed minimum: Arithmetic.
|
||
* SIGNED_CHAR_SPEC: Driver.
|
||
* SImode: Machine Modes.
|
||
* simple constraints: Simple Constraints.
|
||
* simplifications, arithmetic: Passes.
|
||
* sin: C Dialect Options.
|
||
* SIZE_TYPE: Type Layout.
|
||
+ * sizeof: Typeof.
|
||
* SLOW_BYTE_ACCESS: Costs.
|
||
* SLOW_UNALIGNED_ACCESS: Costs.
|
||
* SLOW_ZERO_EXTEND: Costs.
|
||
+ * SMALL_REGISTER_CLASSES: Register Classes.
|
||
* smaller data references (88k): M88K Options.
|
||
* smaller data references (MIPS): MIPS Options.
|
||
* smax: Arithmetic.
|
||
* smin: Arithmetic.
|
||
* SPARC options: SPARC Options.
|
||
***************
|
||
*** 1704,1710 ****
|
||
* specifying registers for local variables: Local Reg Vars.
|
||
* speed of instructions: Costs.
|
||
* splitting instructions: Insn Splitting.
|
||
! * sqrt: Arithmetic.
|
||
* sqrt: C Dialect Options.
|
||
* square root: Arithmetic.
|
||
* stack arguments: Stack Arguments.
|
||
--- 1698,1704 ----
|
||
* specifying registers for local variables: Local Reg Vars.
|
||
* speed of instructions: Costs.
|
||
* splitting instructions: Insn Splitting.
|
||
! * sqrt <1>: Arithmetic.
|
||
* sqrt: C Dialect Options.
|
||
* square root: Arithmetic.
|
||
* stack arguments: Stack Arguments.
|
||
***************
|
||
*** 1733,1743 ****
|
||
* STATIC_CHAIN_INCOMING_REGNUM: Frame Registers.
|
||
* STATIC_CHAIN_REGNUM: Frame Registers.
|
||
* storage layout: Storage Layout.
|
||
- * storem bug (29k): AMD29K Options.
|
||
* STORE_FLAG_VALUE: Misc.
|
||
* strcmp: C Dialect Options.
|
||
* strcpy: C Dialect Options.
|
||
- * strcpy: Storage Layout.
|
||
* strength-reduction: Passes.
|
||
* STRICT_ALIGNMENT: Storage Layout.
|
||
* STRICT_ARGUMENT_NAMING: Varargs.
|
||
--- 1727,1737 ----
|
||
* STATIC_CHAIN_INCOMING_REGNUM: Frame Registers.
|
||
* STATIC_CHAIN_REGNUM: Frame Registers.
|
||
* storage layout: Storage Layout.
|
||
* STORE_FLAG_VALUE: Misc.
|
||
+ * storem bug (29k): AMD29K Options.
|
||
* strcmp: C Dialect Options.
|
||
+ * strcpy <1>: Storage Layout.
|
||
* strcpy: C Dialect Options.
|
||
* strength-reduction: Passes.
|
||
* STRICT_ALIGNMENT: Storage Layout.
|
||
* STRICT_ARGUMENT_NAMING: Varargs.
|
||
***************
|
||
*** 1746,1761 ****
|
||
* string constants vs newline: C Dialect Options.
|
||
* STRIP_NAME_ENCODING: Sections.
|
||
* strlen: C Dialect Options.
|
||
* structure passing (88k): M88K Options.
|
||
* structure value address: Aggregate Return.
|
||
* structures: Incompatibilities.
|
||
* structures, constructor expression: Constructors.
|
||
* structures, returning: Interface.
|
||
- * STRUCTURE_SIZE_BOUNDARY: Storage Layout.
|
||
- * STRUCT_VALUE: Aggregate Return.
|
||
- * STRUCT_VALUE_INCOMING: Aggregate Return.
|
||
- * STRUCT_VALUE_INCOMING_REGNUM: Aggregate Return.
|
||
- * STRUCT_VALUE_REGNUM: Aggregate Return.
|
||
* stupid register allocation: Passes.
|
||
* submodel options: Submodel Options.
|
||
* subreg: Regs and Memory.
|
||
--- 1740,1755 ----
|
||
* string constants vs newline: C Dialect Options.
|
||
* STRIP_NAME_ENCODING: Sections.
|
||
* strlen: C Dialect Options.
|
||
+ * STRUCT_VALUE: Aggregate Return.
|
||
+ * STRUCT_VALUE_INCOMING: Aggregate Return.
|
||
+ * STRUCT_VALUE_INCOMING_REGNUM: Aggregate Return.
|
||
+ * STRUCT_VALUE_REGNUM: Aggregate Return.
|
||
* structure passing (88k): M88K Options.
|
||
* structure value address: Aggregate Return.
|
||
+ * STRUCTURE_SIZE_BOUNDARY: Storage Layout.
|
||
* structures: Incompatibilities.
|
||
* structures, constructor expression: Constructors.
|
||
* structures, returning: Interface.
|
||
* stupid register allocation: Passes.
|
||
* submodel options: Submodel Options.
|
||
* subreg: Regs and Memory.
|
||
***************
|
||
*** 1773,1788 ****
|
||
* suppressing warnings: Warning Options.
|
||
* surprises in C++: C++ Misunderstandings.
|
||
* SVr4: M88K Options.
|
||
- * SWITCHES_NEED_SPACES: Driver.
|
||
* SWITCH_TAKES_ARG: Driver.
|
||
! * symbolic label: Sharing.
|
||
* symbol_ref: Constants.
|
||
* SYMBOL_REF_FLAG: Flags.
|
||
* SYMBOL_REF_USED: Flags.
|
||
* syntax checking: Warning Options.
|
||
* synthesized methods, warning: Warning Options.
|
||
- * SYSTEM_INCLUDE_DIR: Driver.
|
||
* sys_siglist: Config.
|
||
* tagging insns: Tagging Insns.
|
||
* tail recursion optimization: Passes.
|
||
* target description macros: Target Macros.
|
||
--- 1767,1782 ----
|
||
* suppressing warnings: Warning Options.
|
||
* surprises in C++: C++ Misunderstandings.
|
||
* SVr4: M88K Options.
|
||
* SWITCH_TAKES_ARG: Driver.
|
||
! * SWITCHES_NEED_SPACES: Driver.
|
||
* symbol_ref: Constants.
|
||
* SYMBOL_REF_FLAG: Flags.
|
||
* SYMBOL_REF_USED: Flags.
|
||
+ * symbolic label: Sharing.
|
||
* syntax checking: Warning Options.
|
||
* synthesized methods, warning: Warning Options.
|
||
* sys_siglist: Config.
|
||
+ * SYSTEM_INCLUDE_DIR: Driver.
|
||
* tagging insns: Tagging Insns.
|
||
* tail recursion optimization: Passes.
|
||
* target description macros: Target Macros.
|
||
***************
|
||
*** 1818,1828 ****
|
||
* top level of compiler: Passes.
|
||
* traditional C language: C Dialect Options.
|
||
* TRADITIONAL_RETURN_FLOAT: Scalar Return.
|
||
- * trampolines for nested functions: Trampolines.
|
||
* TRAMPOLINE_ALIGNMENT: Trampolines.
|
||
* TRAMPOLINE_SECTION: Trampolines.
|
||
* TRAMPOLINE_SIZE: Trampolines.
|
||
* TRAMPOLINE_TEMPLATE: Trampolines.
|
||
* TRANSFER_FROM_TRAMPOLINE: Trampolines.
|
||
* TRULY_NOOP_TRUNCATION: Misc.
|
||
* truncate: Conversions.
|
||
--- 1812,1822 ----
|
||
* top level of compiler: Passes.
|
||
* traditional C language: C Dialect Options.
|
||
* TRADITIONAL_RETURN_FLOAT: Scalar Return.
|
||
* TRAMPOLINE_ALIGNMENT: Trampolines.
|
||
* TRAMPOLINE_SECTION: Trampolines.
|
||
* TRAMPOLINE_SIZE: Trampolines.
|
||
* TRAMPOLINE_TEMPLATE: Trampolines.
|
||
+ * trampolines for nested functions: Trampolines.
|
||
* TRANSFER_FROM_TRAMPOLINE: Trampolines.
|
||
* TRULY_NOOP_TRUNCATION: Misc.
|
||
* truncate: Conversions.
|
||
***************
|
||
*** 1856,1863 ****
|
||
* unshare_all_rtl: Sharing.
|
||
* unsigned division: Arithmetic.
|
||
* unsigned greater than: Comparisons.
|
||
- * unsigned greater than: Comparisons.
|
||
- * unsigned less than: Comparisons.
|
||
* unsigned less than: Comparisons.
|
||
* unsigned minimum and maximum: Arithmetic.
|
||
* unsigned_fix: Conversions.
|
||
--- 1850,1855 ----
|
||
***************
|
||
*** 1865,1874 ****
|
||
* unspec: Side Effects.
|
||
* unspec_volatile: Side Effects.
|
||
* use: Side Effects.
|
||
- * used: Flags.
|
||
- * USER_LABEL_PREFIX: Instruction Output.
|
||
* USE_C_ALLOCA: Config.
|
||
* USE_PROTOTYPES: Config.
|
||
* USG: Config.
|
||
* VALID_MACHINE_DECL_ATTRIBUTE: Misc.
|
||
* VALID_MACHINE_TYPE_ATTRIBUTE: Misc.
|
||
--- 1857,1866 ----
|
||
* unspec: Side Effects.
|
||
* unspec_volatile: Side Effects.
|
||
* use: Side Effects.
|
||
* USE_C_ALLOCA: Config.
|
||
* USE_PROTOTYPES: Config.
|
||
+ * used: Flags.
|
||
+ * USER_LABEL_PREFIX: Instruction Output.
|
||
* USG: Config.
|
||
* VALID_MACHINE_DECL_ATTRIBUTE: Misc.
|
||
* VALID_MACHINE_TYPE_ATTRIBUTE: Misc.
|
||
***************
|
||
*** 1910,1919 ****
|
||
* WCHAR_TYPE_SIZE: Type Layout.
|
||
* which_alternative: Output Statement.
|
||
* whitespace: Incompatibilities.
|
||
- * WORDS_BIG_ENDIAN: Storage Layout.
|
||
* word_mode: Machine Modes.
|
||
* WORD_REGISTER_OPERATIONS: Misc.
|
||
* WORD_SWITCH_TAKES_ARG: Driver.
|
||
* XCmode: Machine Modes.
|
||
* XCOFF_DEBUGGING_INFO: DBX Options.
|
||
* XEXP: Accessors.
|
||
--- 1902,1911 ----
|
||
* WCHAR_TYPE_SIZE: Type Layout.
|
||
* which_alternative: Output Statement.
|
||
* whitespace: Incompatibilities.
|
||
* word_mode: Machine Modes.
|
||
* WORD_REGISTER_OPERATIONS: Misc.
|
||
* WORD_SWITCH_TAKES_ARG: Driver.
|
||
+ * WORDS_BIG_ENDIAN: Storage Layout.
|
||
* XCmode: Machine Modes.
|
||
* XCOFF_DEBUGGING_INFO: DBX Options.
|
||
* XEXP: Accessors.
|
||
***************
|
||
*** 1929,1945 ****
|
||
* zero-length arrays: Zero Length.
|
||
* zero_extend: Conversions.
|
||
* zero_extract: Bit Fields.
|
||
- * \: Output Template.
|
||
- * __bb_init_func: Profiling.
|
||
- * __builtin_apply: Constructing Calls.
|
||
- * __builtin_apply_args: Constructing Calls.
|
||
- * __builtin_args_info: Varargs.
|
||
- * __builtin_classify_type: Varargs.
|
||
- * __builtin_next_arg: Varargs.
|
||
- * __builtin_return: Constructing Calls.
|
||
- * __builtin_saveregs: Varargs.
|
||
- * __CTOR_LIST__: Initialization.
|
||
- * __DTOR_LIST__: Initialization.
|
||
- * __main: Collect2.
|
||
|
||
|
||
--- 1921,1925 ----
|
||
diff -rcP gcc-2.7.2.1/gcc.info-3 gcc-2.7.2.1-objc-960906/gcc.info-3
|
||
*** gcc-2.7.2.1/gcc.info-3 Fri Sep 6 11:21:36 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-3 Fri Sep 6 10:26:18 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-4 gcc-2.7.2.1-objc-960906/gcc.info-4
|
||
*** gcc-2.7.2.1/gcc.info-4 Fri Sep 6 11:21:37 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-4 Fri Sep 6 10:26:18 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-5 gcc-2.7.2.1-objc-960906/gcc.info-5
|
||
*** gcc-2.7.2.1/gcc.info-5 Fri Sep 6 11:21:38 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-5 Fri Sep 6 10:26:19 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-6 gcc-2.7.2.1-objc-960906/gcc.info-6
|
||
*** gcc-2.7.2.1/gcc.info-6 Fri Sep 6 11:21:38 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-6 Fri Sep 6 10:26:19 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 465,468 ****
|
||
--- 465,510 ----
|
||
does not distribute a C runtime library, it also does not include
|
||
a C++ run-time library. All I/O functionality, special class
|
||
libraries, etc., are available in the libg++ distribution.
|
||
+
|
||
+ 17. GNU C does include a runtime library for Objective-C because it is
|
||
+ an integral part of the language; all of the files associated with
|
||
+ the library are located in the subdirectory `objc'. The GNU
|
||
+ Objective-C Runtime Library does require header files for the
|
||
+ target's C library in order to be compiled, and it will also
|
||
+ require the header files for the target's thread library if you
|
||
+ want thread support. *Note Cross-Compilers and Header Files:
|
||
+ Cross Headers, for discussion about header files issues for
|
||
+ cross-compilation.
|
||
+
|
||
+ When you run `configure', it picks the appropriate Objective-C
|
||
+ back-end thread implementation file for the target platform. In
|
||
+ some situations, you may wish to choose a different back-end as
|
||
+ some platforms support multiple thread implementations, or you may
|
||
+ wish to disable thread support completely. This can be done by
|
||
+ specifying a value for the OBJC_THREAD_FILE makefile variable on
|
||
+ the command line when you run make, for example:
|
||
+
|
||
+ make CC="stage2/xgcc -Bstage2/" CFLAGS="-g -O2" OBJC_THREAD_FILE=thr-single
|
||
+
|
||
+ Below is a list of the currently available back-ends.
|
||
+
|
||
+ * thr-single; disable thread support, should work for all
|
||
+ platforms.
|
||
+
|
||
+ * thr-decosf1; DEC OSF/1 thread support.
|
||
+
|
||
+ * thr-irix; SGI IRIX thread support.
|
||
+
|
||
+ * thr-mach; Generic MACH thread support, known to work on
|
||
+ NEXTSTEP.
|
||
+
|
||
+ * thr-os2; IBM OS/2 thread support.
|
||
+
|
||
+ * thr-posix; Generix POSIX thread support.
|
||
+
|
||
+ * thr-pthreads; PCThreads on Linux based GNU systems.
|
||
+
|
||
+ * thr-solaris; SUN Solaris thread support.
|
||
+
|
||
+ * thr-win32; Microsoft Win32 API thread support.
|
||
|
||
diff -rcP gcc-2.7.2.1/gcc.info-7 gcc-2.7.2.1-objc-960906/gcc.info-7
|
||
*** gcc-2.7.2.1/gcc.info-7 Fri Sep 6 11:21:39 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-7 Fri Sep 6 10:26:20 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
***************
|
||
*** 262,337 ****
|
||
Structures are no longer a multiple of 2 bytes.
|
||
|
||
`hppa*-*-*'
|
||
! There are two variants of this CPU, called 1.0 and 1.1, which have
|
||
! different machine descriptions. You must use the right one for
|
||
! your machine. All 7NN machines and 8N7 machines use 1.1, while
|
||
! all other 8NN machines use 1.0.
|
||
!
|
||
! The easiest way to handle this problem is to use `configure hpNNN'
|
||
! or `configure hpNNN-hpux', where NNN is the model number of the
|
||
! machine. Then `configure' will figure out if the machine is a 1.0
|
||
! or 1.1. Use `uname -a' to find out the model number of your
|
||
! machine.
|
||
|
||
`-g' does not work on HP-UX, since that system uses a peculiar
|
||
debugging format which GNU CC does not know about. However, `-g'
|
||
will work if you also use GAS and GDB in conjunction with GCC. We
|
||
highly recommend using GAS for all HP-PA configurations.
|
||
|
||
! You should be using GAS-2.3 (or later) along with GDB-4.12 (or
|
||
later). These can be retrieved from all the traditional GNU ftp
|
||
archive sites.
|
||
|
||
! Build GAS and install the resulting binary as:
|
||
|
||
! /usr/local/lib/gcc-lib/CONFIGURATION/GCCVERSION/as
|
||
!
|
||
! where CONFIGURATION is the configuration name (perhaps
|
||
! `hpNNN-hpux') and GCCVERSION is the GNU CC version number. Do
|
||
! this *before* starting the build process, otherwise you will get
|
||
! errors from the HPUX assembler while building `libgcc2.a'. The
|
||
! command
|
||
!
|
||
! make install-dir
|
||
!
|
||
! will create the necessary directory hierarchy so you can install
|
||
! GAS before building GCC.
|
||
!
|
||
! To enable debugging, configure GNU CC with the `--with-gnu-as'
|
||
! option before building.
|
||
!
|
||
! It has been reported that GNU CC produces invalid assembly code for
|
||
! 1.1 machines running HP-UX 8.02 when using the HP assembler.
|
||
! Typically the errors look like this:
|
||
! as: bug.s @line#15 [err#1060]
|
||
! Argument 0 or 2 in FARG upper
|
||
! - lookahead = ARGW1=FR,RTNVAL=GR
|
||
! as: foo.s @line#28 [err#1060]
|
||
! Argument 0 or 2 in FARG upper
|
||
! - lookahead = ARGW1=FR
|
||
!
|
||
! You can check the version of HP-UX you are running by executing
|
||
! the command `uname -r'. If you are indeed running HP-UX 8.02 on
|
||
! a PA and using the HP assembler then configure GCC with
|
||
! "hpNNN-hpux8.02".
|
||
|
||
`i370-*-*'
|
||
This port is very preliminary and has many known bugs. We hope to
|
||
have a higher-quality port for this machine soon.
|
||
|
||
`i386-*-linuxoldld'
|
||
! Use this configuration to generate a.out binaries on Linux if you
|
||
! do not have gas/binutils version 2.5.2 or later installed. This is
|
||
! an obsolete configuration.
|
||
|
||
`i386-*-linuxaout'
|
||
! Use this configuration to generate a.out binaries on Linux. This
|
||
! configuration is being superseded. You must use gas/binutils
|
||
! version 2.5.2 or later.
|
||
|
||
`i386-*-linux'
|
||
! Use this configuration to generate ELF binaries on Linux. You must
|
||
! use gas/binutils version 2.5.2 or later.
|
||
|
||
`i386-*-sco'
|
||
Compilation with RCC is recommended. Also, it may be a good idea
|
||
--- 262,308 ----
|
||
Structures are no longer a multiple of 2 bytes.
|
||
|
||
`hppa*-*-*'
|
||
! There are several variants of the HP-PA processor which run a
|
||
! variety of operating systems. GNU CC must be configured to use
|
||
! the correct processor type and operating system, or GNU CC will
|
||
! not function correctly. The easiest way to handle this problem is
|
||
! to *not* specify a target when configuring GNU CC, the `configure'
|
||
! script will try to automatically determine the right processor
|
||
! type and operating system.
|
||
|
||
`-g' does not work on HP-UX, since that system uses a peculiar
|
||
debugging format which GNU CC does not know about. However, `-g'
|
||
will work if you also use GAS and GDB in conjunction with GCC. We
|
||
highly recommend using GAS for all HP-PA configurations.
|
||
|
||
! You should be using GAS-2.6 (or later) along with GDB-4.16 (or
|
||
later). These can be retrieved from all the traditional GNU ftp
|
||
archive sites.
|
||
|
||
! GAS will need to be installed into a directory before `/bin',
|
||
! `/usr/bin', and `/usr/ccs/bin' in your search path. You should
|
||
! install GAS before you build GNU CC.
|
||
|
||
! To enable debugging, you must configure GNU CC with the
|
||
! `--with-gnu-as' option before building.
|
||
|
||
`i370-*-*'
|
||
This port is very preliminary and has many known bugs. We hope to
|
||
have a higher-quality port for this machine soon.
|
||
|
||
`i386-*-linuxoldld'
|
||
! Use this configuration to generate a.out binaries on Linux-based
|
||
! GNU systems, if you do not have gas/binutils version 2.5.2 or later
|
||
! installed. This is an obsolete configuration.
|
||
|
||
`i386-*-linuxaout'
|
||
! Use this configuration to generate a.out binaries on Linux-based
|
||
! GNU systems. This configuration is being superseded. You must use
|
||
! gas/binutils version 2.5.2 or later.
|
||
|
||
`i386-*-linux'
|
||
! Use this configuration to generate ELF binaries on Linux-based GNU
|
||
! systems. You must use gas/binutils version 2.5.2 or later.
|
||
|
||
`i386-*-sco'
|
||
Compilation with RCC is recommended. Also, it may be a good idea
|
||
diff -rcP gcc-2.7.2.1/gcc.info-8 gcc-2.7.2.1-objc-960906/gcc.info-8
|
||
*** gcc-2.7.2.1/gcc.info-8 Fri Sep 6 11:21:40 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-8 Fri Sep 6 10:26:21 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/gcc.info-9 gcc-2.7.2.1-objc-960906/gcc.info-9
|
||
*** gcc-2.7.2.1/gcc.info-9 Fri Sep 6 11:21:41 1996
|
||
--- gcc-2.7.2.1-objc-960906/gcc.info-9 Fri Sep 6 10:26:22 1996
|
||
***************
|
||
*** 1,4 ****
|
||
! This is Info file gcc.info, produced by Makeinfo-1.55 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
--- 1,4 ----
|
||
! This is Info file gcc.info, produced by Makeinfo-1.63 from the input
|
||
file gcc.texi.
|
||
|
||
This file documents the use and the internals of the GNU compiler.
|
||
diff -rcP gcc-2.7.2.1/install.texi gcc-2.7.2.1-objc-960906/install.texi
|
||
*** gcc-2.7.2.1/install.texi Fri Sep 6 11:21:58 1996
|
||
--- gcc-2.7.2.1-objc-960906/install.texi Fri Sep 6 10:26:38 1996
|
||
***************
|
||
*** 497,502 ****
|
||
--- 497,540 ----
|
||
distribute a C runtime library, it also does not include a C++ run-time
|
||
library. All I/O functionality, special class libraries, etc., are
|
||
available in the libg++ distribution.
|
||
+
|
||
+ @item
|
||
+ GNU C does include a runtime library for Objective-C because it is an
|
||
+ integral part of the language; all of the files associated with the
|
||
+ library are located in the subdirectory @file{objc}. The GNU
|
||
+ Objective-C Runtime Library does require header files for the target's C
|
||
+ library in order to be compiled, and it will also require the header
|
||
+ files for the target's thread library if you want thread support.
|
||
+ @xref{Cross Headers, Cross-Compilers and Header Files, Cross-Compilers
|
||
+ and Header Files}, for discussion about header files issues for
|
||
+ cross-compilation.
|
||
+
|
||
+ When you run @file{configure}, it picks the appropriate Objective-C
|
||
+ back-end thread implementation file for the target platform. In some
|
||
+ situations, you may wish to choose a different back-end as some
|
||
+ platforms support multiple thread implementations, or you may wish to
|
||
+ disable thread support completely. This can be done by specifying a
|
||
+ value for the @var{OBJC_THREAD_FILE} makefile variable on the command
|
||
+ line when you run make, for example:
|
||
+
|
||
+ @smallexample
|
||
+ make CC="stage2/xgcc -Bstage2/" CFLAGS="-g -O2" OBJC_THREAD_FILE=thr-single
|
||
+ @end smallexample
|
||
+
|
||
+ @noindent
|
||
+ Below is a list of the currently available back-ends.
|
||
+
|
||
+ @itemize @bullet
|
||
+ @item thr-single; disable thread support, should work for all platforms.
|
||
+ @item thr-decosf1; DEC OSF/1 thread support.
|
||
+ @item thr-irix; SGI IRIX thread support.
|
||
+ @item thr-mach; Generic MACH thread support, known to work on NEXTSTEP.
|
||
+ @item thr-os2; IBM OS/2 thread support.
|
||
+ @item thr-posix; Generix POSIX thread support.
|
||
+ @item thr-pthreads; PCThreads on Linux based GNU systems.
|
||
+ @item thr-solaris; SUN Solaris thread support.
|
||
+ @item thr-win32; Microsoft Win32 API thread support.
|
||
+ @end itemize
|
||
@end enumerate
|
||
|
||
@node Configurations
|
||
diff -rcP gcc-2.7.2.1/objc/Makefile gcc-2.7.2.1-objc-960906/objc/Makefile
|
||
*** gcc-2.7.2.1/objc/Makefile Fri Sep 6 11:28:53 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/Makefile Fri Sep 6 10:33:25 1996
|
||
***************
|
||
*** 1,5 ****
|
||
# GNU Objective C Runtime Makefile
|
||
! # Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
#
|
||
# This file is part of GNU CC.
|
||
#
|
||
--- 1,5 ----
|
||
# GNU Objective C Runtime Makefile
|
||
! # Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
#
|
||
# This file is part of GNU CC.
|
||
#
|
||
***************
|
||
*** 25,30 ****
|
||
--- 25,31 ----
|
||
# srcdir=$$srcdir1 tooldir=$(tooldir) AR="$(AR)" AR_FLAGS="$(AR_FLAGS)" \
|
||
# GCC_FOR_TARGET="$$thisdir1/xgcc -B$$thisdir1/" \
|
||
# GCC_CFLAGS="$(GCC_CFLAGS)" incinstalldir=$$thisdir1/include
|
||
+ # OBJC_THREAD_FILE="$(OBJC_THREAD_FILE)"
|
||
# Two targets are used by ../Makefile: `all' and `mostlyclean'.
|
||
|
||
SHELL=/bin/sh
|
||
***************
|
||
*** 56,71 ****
|
||
cd ..; $(MAKE) sublibobjc.a
|
||
|
||
OBJC_O = hash.o sarray.o class.o sendmsg.o init.o archive.o encoding.o \
|
||
! selector.o objects.o misc.o NXConstStr.o Object.o Protocol.o
|
||
|
||
libobjc.a: $(OBJC_O)
|
||
- -rm -f libobjc.a
|
||
$(AR) rc libobjc.a $?
|
||
# ranlib is run in the parent directory's makefile.
|
||
|
||
! OBJC_H = hash.h list.h sarray.h objc.h \
|
||
objc-api.h \
|
||
! NXConstStr.h Object.h Protocol.h encoding.h typedstream.h
|
||
|
||
# copy objc headers to installation include directory
|
||
copy-headers:
|
||
--- 57,72 ----
|
||
cd ..; $(MAKE) sublibobjc.a
|
||
|
||
OBJC_O = hash.o sarray.o class.o sendmsg.o init.o archive.o encoding.o \
|
||
! selector.o objects.o misc.o NXConstStr.o Object.o Protocol.o \
|
||
! nil_method.o thr.o $(OBJC_THREAD_FILE).o
|
||
|
||
libobjc.a: $(OBJC_O)
|
||
$(AR) rc libobjc.a $?
|
||
# ranlib is run in the parent directory's makefile.
|
||
|
||
! 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
|
||
|
||
# copy objc headers to installation include directory
|
||
copy-headers:
|
||
***************
|
||
*** 98,100 ****
|
||
--- 99,104 ----
|
||
NXConstStr.o: NXConstStr.m
|
||
Object.o: Object.m
|
||
Protocol.o: Protocol.m
|
||
+ thr.o: thr.h thr.c
|
||
+ $(OBJC_THREAD_FILE).o: $(OBJC_THREAD_FILE).c
|
||
+ nil_method.o: nil_method.c
|
||
diff -rcP gcc-2.7.2.1/objc/Object.m gcc-2.7.2.1-objc-960906/objc/Object.m
|
||
*** gcc-2.7.2.1/objc/Object.m Fri Sep 6 11:28:54 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/Object.m Fri Sep 6 10:33:26 1996
|
||
***************
|
||
*** 29,36 ****
|
||
#include "objc/Protocol.h"
|
||
#include "objc/objc-api.h"
|
||
|
||
- extern void (*_objc_error)(id object, const char *format, va_list);
|
||
-
|
||
extern int errno;
|
||
|
||
#define MAX_CLASS_NAME_LEN 256
|
||
--- 29,34 ----
|
||
***************
|
||
*** 337,343 ****
|
||
object_is_instance(self)?"instance":"class",
|
||
(aString!=NULL)?aString:"");
|
||
va_start(ap, aString);
|
||
! (*_objc_error)(self, fmt, ap);
|
||
va_end(ap);
|
||
return nil;
|
||
#undef FMT
|
||
--- 335,341 ----
|
||
object_is_instance(self)?"instance":"class",
|
||
(aString!=NULL)?aString:"");
|
||
va_start(ap, aString);
|
||
! objc_error(self, OBJC_ERR_UNKNOWN, fmt, ap);
|
||
va_end(ap);
|
||
return nil;
|
||
#undef FMT
|
||
diff -rcP gcc-2.7.2.1/objc/README.threads gcc-2.7.2.1-objc-960906/objc/README.threads
|
||
*** gcc-2.7.2.1/objc/README.threads Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/README.threads Fri Sep 6 10:33:27 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,50 ----
|
||
+ ==============================================================================
|
||
+ README - Wed Nov 29 15:16:24 EST 1995
|
||
+ ------------------------------------------------------------------------------
|
||
+
|
||
+ Limited documentation is available in the THREADS file.
|
||
+
|
||
+ This version has been tested on Sun Solaris, SGI Irix, and Windows NT.
|
||
+ It should also work on any single threaded system.
|
||
+
|
||
+ Thanks go to the following people for help test and debug the library:
|
||
+
|
||
+ Scott Christley, scottc@ocbi.com
|
||
+ Andrew McCallum, mccallum@cs.rochester.edu
|
||
+
|
||
+ galen
|
||
+ gchunt@cs.rochester.edu
|
||
+
|
||
+ Any questions, bug reports, etc should be directed to:
|
||
+
|
||
+ Scott Christley, scottc@ocbi.com
|
||
+
|
||
+ Please do not bug Galen with email as he no longer supports the code.
|
||
+
|
||
+ ==============================================================================
|
||
+ Changes from prior releases (in revered chronological order):
|
||
+ ------------------------------------------------------------------------------
|
||
+
|
||
+ * Fixed bug in copy part of sarray_realloc. I had an < which should
|
||
+ have been <=. (Bug report from Scott).
|
||
+
|
||
+ ------------------------------------------------------------------------------
|
||
+
|
||
+ * Support for DEC OSF/1 is definitely broken. My programs always
|
||
+ seg-fault when I link with libpthreads.a.
|
||
+
|
||
+ * Thread id's are no longer int's, but are instead of type
|
||
+ _objc_thread_t which is typedef'ed from a void *. An invalid thread
|
||
+ id is denoted by NULL and not -1 as before.
|
||
+
|
||
+ ------------------------------------------------------------------------------
|
||
+
|
||
+ * Renamed thread-winnt.c to thread-win32.c to better reflect support
|
||
+ for the API on both Windows NT and Windows 95 platforms.
|
||
+ (Who knows, maybe even Win32s :-).
|
||
+
|
||
+ * Fixed bugs in Win32 support as per report from Scott Christley.
|
||
+
|
||
+ * Fixed bug in sarray_get as per report from Scott Christley.
|
||
+
|
||
+
|
||
diff -rcP gcc-2.7.2.1/objc/THREADS gcc-2.7.2.1-objc-960906/objc/THREADS
|
||
*** gcc-2.7.2.1/objc/THREADS Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/THREADS Fri Sep 6 10:33:28 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,336 ----
|
||
+ This file describes in little detail the modifications to the
|
||
+ Objective-C runtime needed to make it thread safe.
|
||
+
|
||
+ First off, kudos to Galen Hunt who is the author of this great work.
|
||
+
|
||
+ If you have an comments or just want to know where to
|
||
+ send me money to express your undying graditude for threading the
|
||
+ Objective-C runtime you can reach Galen at:
|
||
+
|
||
+ gchunt@cs.rochester.edu
|
||
+
|
||
+ Any questions, comments, bug reports, etc. should send email either to the
|
||
+ GCC bug account or to:
|
||
+
|
||
+ Scott Christley <scottc@net-community.com>
|
||
+
|
||
+ * Sarray Threading:
|
||
+
|
||
+ The most critical component of the Objective-C runtime is the sparse array
|
||
+ structure (sarray). Sarrays store object selectors and implementations.
|
||
+ Following in the tradition of the Objective-C runtime, my threading
|
||
+ support assumes that fast message dispatching is far more important
|
||
+ than *ANY* and *ALL* other operations. The message dispatching thus
|
||
+ uses *NO* locks on any kind. In fact, if you look in sarray.h, you
|
||
+ will notice that the message dispatching has not been modified.
|
||
+ Instead, I have modified the sarray management functions so that all
|
||
+ updates to the sarray data structure can be made in parallel will
|
||
+ message dispatching.
|
||
+
|
||
+ To support concurrent message dispatching, no dynamically allocated
|
||
+ sarray data structures are freed while more than one thread is
|
||
+ operational. Sarray data structures that are no longer in use are
|
||
+ kept in a linked list of garbage and are released whenever the program
|
||
+ is operating with a single thread. The programmer can also flush the
|
||
+ garbage list by calling sarray_remove_garbage when the programmer can
|
||
+ ensure that no message dispatching is taking place concurrently. The
|
||
+ amount of un-reclaimed sarray garbage should normally be extremely
|
||
+ small in a real program as sarray structures are freed only when using
|
||
+ the "poseAs" functionality and early in program initialization, which
|
||
+ normally occurs while the program is single threaded.
|
||
+
|
||
+ ******************************************************************************
|
||
+ * Static Variables:
|
||
+
|
||
+ The following variables are either statically or globally defined. This list
|
||
+ does not include variables which are internal to implementation dependent
|
||
+ versions of thread-*.c.
|
||
+
|
||
+ The following threading designations are used:
|
||
+ SAFE : Implicitly thread safe.
|
||
+ SINGLE : Must only be used in single thread mode.
|
||
+ MUTEX : Protected by single global mutex objc_runtime_mutex.
|
||
+ UNUSED : Not used in the runtime.
|
||
+
|
||
+ Variable Name: Usage: Defined: Also used in:
|
||
+ =========================== ====== ============ =====================
|
||
+ __objc_class_hash MUTEX class.c
|
||
+ __objc_class_links_resolved UNUSED class.c runtime.h
|
||
+ __objc_class_number MUTEX class.c
|
||
+ __objc_dangling_categories UNUSED init.c
|
||
+ __objc_module_list MUTEX init.c
|
||
+ __objc_selector_array MUTEX selector.c
|
||
+ __objc_selector_hash MUTEX selector.c
|
||
+ __objc_selector_max_index MUTEX selector.c sendmsg.c runtime.h
|
||
+ __objc_selector_names MUTEX selector.c
|
||
+ __objc_thread_exit_status SAFE thread.c
|
||
+ __objc_uninstalled_dtable MUTEX sendmsg.c selector.c
|
||
+ _objc_load_callback SAFE init.c objc-api.h
|
||
+ _objc_lookup_class SAFE class.c objc-api.h
|
||
+ _objc_object_alloc SINGLE objects.c objc-api.h
|
||
+ _objc_object_copy SINGLE objects.c objc-api.h
|
||
+ _objc_object_dispose SINGLE objects.c objc-api.h
|
||
+ frwd_sel SAFE2 sendmsg.c
|
||
+ idxsize MUTEX sarray.c sendmsg.c sarray.h
|
||
+ initialize_sel SAFE2 sendmsg.c
|
||
+ narrays MUTEX sarray.c sendmsg.c sarray.h
|
||
+ nbuckets MUTEX sarray.c sendmsg.c sarray.h
|
||
+ nindices MUTEX sarray.c sarray.h
|
||
+ previous_constructors SAFE1 init.c
|
||
+ proto_class SAFE1 init.c
|
||
+ unclaimed_categories MUTEX init.c
|
||
+ unclaimed_proto_list MUTEX init.c
|
||
+ uninitialized_statics MUTEX init.c
|
||
+
|
||
+ Notes:
|
||
+ 1) Initialized once in unithread mode.
|
||
+ 2) Initialized value will always be same, guaranteed by lock on selector
|
||
+ hash table.
|
||
+
|
||
+
|
||
+ ******************************************************************************
|
||
+ * Frontend/Backend design:
|
||
+
|
||
+ The design of the Objective-C runtime thread and mutex functions utilizes a
|
||
+ frontend/backend implementation.
|
||
+
|
||
+ The frontend, as characterized by the files thr.h and thr.c, is a set
|
||
+ of platform independent structures and functions which represent the
|
||
+ user interface. Objective-C programs should use these structures and
|
||
+ functions for their thread and mutex work if they wish to maintain a
|
||
+ high degree of portability across platforms.
|
||
+
|
||
+ The backend is composed of a file with the necessary code to map the ObjC
|
||
+ thread and mutex to a platform specific implementation. For example, the
|
||
+ file thr-solaris.c contains the implementation for Solaris. When you
|
||
+ configure GCC, it attempts to pick an appropriate backend file for the
|
||
+ target platform; however, you can override this choice by assign the
|
||
+ OBJC_THREAD_FILE make variable to the basename of the backend file. This
|
||
+ is especially useful on platforms which have multiple thread libraries.
|
||
+ For example:
|
||
+
|
||
+ make OBJC_THREAD_FILE=thr-posix
|
||
+
|
||
+ would indicate that the generic posix backend file, thr-posix.c, should be
|
||
+ compiled with the ObjC runtime library. If your platform does not support
|
||
+ threads then you should specify the OBJC_THREAD_FILE=thr-single backend file
|
||
+ to compile the ObjC runtime library without thread or mutex support; note
|
||
+ that programs which rely upon the ObjC thread and mutex functions will
|
||
+ compile and link correctly but attempting to create a thread or mutex will
|
||
+ result in an error.
|
||
+
|
||
+
|
||
+ ******************************************************************************
|
||
+ * Threads:
|
||
+
|
||
+ The thread system attempts to create multiple threads using whatever
|
||
+ operating system or library thread support is available. It does
|
||
+ assume that all system functions are thread safe. Notably this means
|
||
+ that the system implementation of malloc and free must be thread safe.
|
||
+ If a system has multiple processors, the threads are configured for
|
||
+ full parallel processing.
|
||
+
|
||
+ *****
|
||
+ * Frontend thread functions
|
||
+ * User programs should use these thread functions.
|
||
+
|
||
+ objc_thread_detach(SEL selector, id object, id argument), objc_thread_t
|
||
+ Creates and detaches a new thread. The new thread starts by
|
||
+ sending the given selector with a single argument to the
|
||
+ given object.
|
||
+
|
||
+ objc_thread_set_priority(int priority), int
|
||
+ Sets a thread's relative priority within the program. Valid
|
||
+ options are:
|
||
+
|
||
+ OBJC_THREAD_INTERACTIVE_PRIORITY
|
||
+ OBJC_THREAD_BACKGROUND_PRIORITY
|
||
+ OBJC_THREAD_LOW_PRIORITY
|
||
+
|
||
+ objc_thread_get_priority(void), int
|
||
+ Query a thread's priority.
|
||
+
|
||
+ objc_thread_yield(void), void
|
||
+ Yields processor to another thread with equal or higher
|
||
+ priority. It is up to the system scheduler to determine if
|
||
+ the processor is taken or not.
|
||
+
|
||
+ objc_thread_exit(void), int
|
||
+ Terminates a thread. If this is the last thread executing
|
||
+ then the program will terminate.
|
||
+
|
||
+ objc_thread_id(void), int
|
||
+ Returns the current thread's id.
|
||
+
|
||
+ objc_thread_set_data(void *value), int
|
||
+ Set a pointer to the thread's local storage. Local storage is
|
||
+ thread specific.
|
||
+
|
||
+ objc_thread_get_data(void), void *
|
||
+ Returns the pointer to the thread's local storage.
|
||
+
|
||
+ *****
|
||
+ * Backend thread functions
|
||
+ * User programs should *NOT* directly call these functions.
|
||
+
|
||
+ __objc_init_thread_system(void), int
|
||
+ Initialize the thread subsystem. Called once by __objc_exec_class.
|
||
+ Return -1 if error otherwise return 0.
|
||
+
|
||
+ __objc_fini_thread_system(void), int
|
||
+ Closes the thread subsystem, not currently guaranteed to be called.
|
||
+ Return -1 if error otherwise return 0.
|
||
+
|
||
+ __objc_thread_create(void (*func)(void *arg), void *arg), objc_thread_t
|
||
+ Spawns a new thread executing func, called by objc_thread_detach.
|
||
+ Return NULL if error otherwise return thread id.
|
||
+
|
||
+ __objc_thread_set_priority(int priority), int
|
||
+ Set the thread's priority, called by objc_thread_set_priority.
|
||
+ Return -1 if error otherwise return 0.
|
||
+
|
||
+ __objc_thread_get_priority(void), int
|
||
+ Query a thread's priority, called by objc_thread_get_priority.
|
||
+ Return -1 if error otherwise return the priority.
|
||
+
|
||
+ __objc_thread_yield(void), void
|
||
+ Yields the processor, called by objc_thread_yield.
|
||
+
|
||
+ __objc_thread_exit(void), int
|
||
+ Terminates the thread, called by objc_thread_exit.
|
||
+ Return -1 if error otherwise function does not return.
|
||
+
|
||
+ __objc_thread_id(void), objc_thread_t
|
||
+ Returns the current thread's id, called by objc_thread_id.
|
||
+ Return -1 if error otherwise return thread id.
|
||
+
|
||
+ __objc_thread_set_data(void *value), int
|
||
+ Set pointer for thread local storage, called by objc_thread_set_data.
|
||
+ Returns -1 if error otherwise return 0.
|
||
+
|
||
+ __objc_thread_get_data(void), void *
|
||
+ Returns the pointer to the thread's local storage.
|
||
+ Returns NULL if error, called by objc_thread_get_data.
|
||
+
|
||
+
|
||
+ ******************************************************************************
|
||
+ * Mutexs:
|
||
+
|
||
+ Mutexs can be locked recursively. Each locked mutex remembers
|
||
+ its owner (by thread id) and how many times it has been locked. The
|
||
+ last unlock on a mutex removes the system lock and allows other
|
||
+ threads to access the mutex.
|
||
+
|
||
+ *****
|
||
+ * Frontend thread functions
|
||
+ * User programs should use these thread functions.
|
||
+
|
||
+ objc_mutex_allocate(void), objc_mutex_t
|
||
+ Allocates a new mutex. Mutex is initially unlocked.
|
||
+
|
||
+ objc_mutex_deallocate(objc_mutex_t mutex), int
|
||
+ Free a mutex. Before freeing the mutex, makes sure that no
|
||
+ one else is using it.
|
||
+
|
||
+ objc_mutex_lock(objc_mutex_t mutex), int
|
||
+ Locks a mutex. As mentioned earlier, the same thread may call
|
||
+ this routine repeatedly.
|
||
+
|
||
+ objc_mutex_trylock(objc_mutex_t mutex), int
|
||
+ Attempts to lock a mutex. Returns -1 if failed. If lock on
|
||
+ mutex can be acquired then function operates exactly as
|
||
+ objc_mutex_lock.
|
||
+
|
||
+ objc_mutex_unlock(objc_mutex_t mutex), int
|
||
+ Unlocks the mutex by one level. Other threads may not acquire
|
||
+ the mutex until this thread has released all locks on it.
|
||
+
|
||
+ *****
|
||
+ * Backend thread functions
|
||
+ * User programs should *NOT* directly call these functions.
|
||
+
|
||
+ __objc_mutex_allocate(void), objc_mutex_t
|
||
+ Allocates a new mutex, called by objc_mutex_allocate.
|
||
+ Return NULL if error otherwise return mutex pointer.
|
||
+
|
||
+ __objc_mutex_deallocate(objc_mutex_t mutex), int
|
||
+ Free a mutex, called by objc_mutex_deallocate.
|
||
+ Return -1 if error otherwise return 0.
|
||
+
|
||
+ __objc_mutex_lock(objc_mutex_t mutex), int
|
||
+ Locks a mutex, called by objc_mutex_lock.
|
||
+ Return -1 if error otherwise return 0.
|
||
+
|
||
+ __objc_mutex_trylock(objc_mutex_t mutex), int
|
||
+ Attempts to lock a mutex, called by objc_mutex_trylock.
|
||
+ Return -1 if failed to acquire lock or error otherwise return 0.
|
||
+
|
||
+ __objc_mutex_unlock(objc_mutex_t mutex), int
|
||
+ Unlocks the mutex, called by objc_mutex_unlock.
|
||
+ Return -1 if error otherwise return 0.
|
||
+
|
||
+ ******************************************************************************
|
||
+ * Condition Mutexs:
|
||
+
|
||
+ Mutexs can be locked recursively. Each locked mutex remembers
|
||
+ its owner (by thread id) and how many times it has been locked. The
|
||
+ last unlock on a mutex removes the system lock and allows other
|
||
+ threads to access the mutex.
|
||
+
|
||
+ *****
|
||
+ * Frontend thread functions
|
||
+ * User programs should use these thread functions.
|
||
+
|
||
+ objc_condition_allocate(void), objc_condition_t
|
||
+ Allocate a condition mutex.
|
||
+ Return NULL if error otherwise return condition pointer.
|
||
+
|
||
+ objc_condition_deallocate(objc_condition_t condition), int
|
||
+ 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. Does NOT check for
|
||
+ other threads waiting but just wakes them up.
|
||
+
|
||
+ objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex), int
|
||
+ 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 1 so that it can be unlocked
|
||
+ here, for 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.
|
||
+
|
||
+ objc_condition_broadcast(objc_condition_t condition), int
|
||
+ 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.
|
||
+
|
||
+ objc_condition_signal(objc_condition_t condition), int
|
||
+ Wake up one thread waiting on this condition.
|
||
+
|
||
+ *****
|
||
+ * Backend thread functions
|
||
+ * User programs should *NOT* directly call these functions.
|
||
+
|
||
+ __objc_condition_allocate(void), objc_condition_t
|
||
+ Allocate a condition mutex, called by objc_condition_allocate.
|
||
+ Return NULL if error otherwise return condition pointer.
|
||
+
|
||
+ __objc_condition_deallocate(objc_condition_t condition), int
|
||
+ Deallocate a condition, called by objc_condition_deallocate.
|
||
+ Return -1 if error otherwise return 0.
|
||
+
|
||
+ __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex), int
|
||
+ Wait on the condition, called by objc_condition_wait.
|
||
+ Return -1 if error otherwise return 0 when condition is met.
|
||
+
|
||
+ __objc_condition_broadcast(objc_condition_t condition), int
|
||
+ Wake up all threads waiting on this condition.
|
||
+ Called by objc_condition_broadcast.
|
||
+ Return -1 if error otherwise return 0.
|
||
+
|
||
+ __objc_condition_signal(objc_condition_t condition), int
|
||
+ Wake up one thread waiting on this condition.
|
||
+ Called by objc_condition_signal.
|
||
+ Return -1 if error otherwise return 0.
|
||
\ No newline at end of file
|
||
diff -rcP gcc-2.7.2.1/objc/THREADS.MACH gcc-2.7.2.1-objc-960906/objc/THREADS.MACH
|
||
*** gcc-2.7.2.1/objc/THREADS.MACH Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/THREADS.MACH Fri Sep 6 10:33:28 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,23 ----
|
||
+ This readme refers to the file thr-mach.c.
|
||
+
|
||
+ Under mach, thread priorities are kinda strange-- any given thread has
|
||
+ a MAXIMUM priority and a BASE priority. The BASE priority is the
|
||
+ current priority of the thread and the MAXIMUM is the maximum possible
|
||
+ priority the thread can assume. The developer can lower, but never
|
||
+ raise the maximum priority.
|
||
+
|
||
+ The gcc concept of thread priorities is that they run at one of three
|
||
+ levels; interactive, background, and low.
|
||
+
|
||
+ Under mach, this is translated to:
|
||
+
|
||
+ interactive -- set priority to maximum
|
||
+ background -- set priority to 2/3 of maximum
|
||
+ low -- set priority to 1/3 of maximum
|
||
+
|
||
+ This means that it is possible for a thread with the priority of
|
||
+ interactive to actually run at a lower priority than another thread
|
||
+ with a background, or even low, priority if the developer has modified
|
||
+ the maximum priority.
|
||
+
|
||
+
|
||
diff -rcP gcc-2.7.2.1/objc/archive.c gcc-2.7.2.1-objc-960906/objc/archive.c
|
||
*** gcc-2.7.2.1/objc/archive.c Fri Sep 6 11:28:56 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/archive.c Fri Sep 6 10:33:28 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective C Runtime archiving
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
--- 1,5 ----
|
||
/* GNU Objective C Runtime archiving
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
***************
|
||
*** 37,47 ****
|
||
#define PTR2LONG(P) (((char*)(P))-(char*)0)
|
||
#define LONG2PTR(L) (((char*)0)+(L))
|
||
|
||
- #define __objc_fatal(format, args...) \
|
||
- { fprintf(stderr, "archiving: "); \
|
||
- fprintf(stderr, format, ## args); \
|
||
- fprintf(stderr, "\n"); abort(); }
|
||
-
|
||
/* Declare some functions... */
|
||
|
||
static int
|
||
--- 37,42 ----
|
||
***************
|
||
*** 141,147 ****
|
||
}
|
||
|
||
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);
|
||
--- 136,143 ----
|
||
}
|
||
|
||
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);
|
||
***************
|
||
*** 252,258 ****
|
||
}
|
||
|
||
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);
|
||
--- 248,255 ----
|
||
}
|
||
|
||
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);
|
||
***************
|
||
*** 315,321 ****
|
||
}
|
||
|
||
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);
|
||
--- 312,319 ----
|
||
}
|
||
|
||
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);
|
||
***************
|
||
*** 359,365 ****
|
||
return (*stream->write)(stream->physical, &buf, 1);
|
||
}
|
||
else
|
||
! abort();
|
||
}
|
||
|
||
__inline__ int
|
||
--- 357,364 ----
|
||
return (*stream->write)(stream->physical, &buf, 1);
|
||
}
|
||
else
|
||
! objc_error(nil, OBJC_ERR_BAD_OPCODE,
|
||
! "__objc_write_extension: bad opcode %c\n", code);
|
||
}
|
||
|
||
__inline__ int
|
||
***************
|
||
*** 394,400 ****
|
||
{
|
||
int len;
|
||
if (stream->writing_root_p)
|
||
! __objc_fatal ("objc_write_root_object called recursively")
|
||
else
|
||
{
|
||
stream->writing_root_p = 1;
|
||
--- 393,400 ----
|
||
{
|
||
int len;
|
||
if (stream->writing_root_p)
|
||
! objc_error (nil, OBJC_ERR_RECURSE_ROOT,
|
||
! "objc_write_root_object called recursively");
|
||
else
|
||
{
|
||
stream->writing_root_p = 1;
|
||
***************
|
||
*** 488,494 ****
|
||
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;
|
||
--- 488,495 ----
|
||
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;
|
||
***************
|
||
*** 520,527 ****
|
||
}
|
||
|
||
else
|
||
! __objc_fatal("expected 8bit signed int, got %dbit int",
|
||
! (int)(buf&_B_NUMBER)*8);
|
||
}
|
||
return len;
|
||
}
|
||
--- 521,529 ----
|
||
}
|
||
|
||
else
|
||
! objc_error(nil, OBJC_ERR_BAD_DATA,
|
||
! "expected 8bit signed int, got %dbit int",
|
||
! (int)(buf&_B_NUMBER)*8);
|
||
}
|
||
return len;
|
||
}
|
||
***************
|
||
*** 541,548 ****
|
||
len = (*stream->read)(stream->physical, val, 1);
|
||
|
||
else
|
||
! __objc_fatal("expected 8bit unsigned int, got %dbit int",
|
||
! (int)(buf&_B_NUMBER)*8);
|
||
}
|
||
return len;
|
||
}
|
||
--- 543,551 ----
|
||
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;
|
||
}
|
||
***************
|
||
*** 562,568 ****
|
||
int pos = 1;
|
||
int nbytes = buf[0] & _B_NUMBER;
|
||
if (nbytes > sizeof (short))
|
||
! __objc_fatal("expected short, got bigger (%dbits)", nbytes*8);
|
||
len = (*stream->read)(stream->physical, buf+1, nbytes);
|
||
(*value) = 0;
|
||
while (pos <= nbytes)
|
||
--- 565,572 ----
|
||
int pos = 1;
|
||
int nbytes = buf[0] & _B_NUMBER;
|
||
if (nbytes > 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)
|
||
***************
|
||
*** 590,596 ****
|
||
int pos = 1;
|
||
int nbytes = buf[0] & _B_NUMBER;
|
||
if (nbytes > sizeof (short))
|
||
! __objc_fatal("expected short, got int or bigger");
|
||
len = (*stream->read)(stream->physical, buf+1, nbytes);
|
||
(*value) = 0;
|
||
while (pos <= nbytes)
|
||
--- 594,601 ----
|
||
int pos = 1;
|
||
int nbytes = buf[0] & _B_NUMBER;
|
||
if (nbytes > 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)
|
||
***************
|
||
*** 616,622 ****
|
||
int pos = 1;
|
||
int nbytes = buf[0] & _B_NUMBER;
|
||
if (nbytes > sizeof (int))
|
||
! __objc_fatal("expected int, got bigger");
|
||
len = (*stream->read)(stream->physical, buf+1, nbytes);
|
||
(*value) = 0;
|
||
while (pos <= nbytes)
|
||
--- 621,627 ----
|
||
int pos = 1;
|
||
int nbytes = buf[0] & _B_NUMBER;
|
||
if (nbytes > 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)
|
||
***************
|
||
*** 643,649 ****
|
||
int pos = 1;
|
||
int nbytes = buf[0] & _B_NUMBER;
|
||
if (nbytes > sizeof (long))
|
||
! __objc_fatal("expected long, got bigger");
|
||
len = (*stream->read)(stream->physical, buf+1, nbytes);
|
||
(*value) = 0;
|
||
while (pos <= nbytes)
|
||
--- 648,654 ----
|
||
int pos = 1;
|
||
int nbytes = buf[0] & _B_NUMBER;
|
||
if (nbytes > 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)
|
||
***************
|
||
*** 663,669 ****
|
||
unsigned char buf[sizeof(unsigned int)+1];
|
||
|
||
if (nbytes > sizeof (int))
|
||
! __objc_fatal("expected int, got bigger");
|
||
|
||
len = (*stream->read)(stream->physical, buf, nbytes);
|
||
(*val) = 0;
|
||
--- 668,674 ----
|
||
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;
|
||
***************
|
||
*** 699,705 ****
|
||
unsigned char buf[sizeof(unsigned long)+1];
|
||
|
||
if (nbytes > sizeof (long))
|
||
! __objc_fatal("expected long, got bigger");
|
||
|
||
len = (*stream->read)(stream->physical, buf, nbytes);
|
||
(*val) = 0;
|
||
--- 704,710 ----
|
||
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;
|
||
***************
|
||
*** 747,753 ****
|
||
case _B_SSTR:
|
||
{
|
||
int length = buf[0]&_B_VALUE;
|
||
! (*string) = (char*)__objc_xmalloc(length+1);
|
||
if (key)
|
||
hash_add (&stream->stream_table, LONG2PTR(key), *string);
|
||
len = (*stream->read)(stream->physical, *string, length);
|
||
--- 752,758 ----
|
||
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);
|
||
***************
|
||
*** 760,766 ****
|
||
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_xmalloc (strlen(tmp) + 1);
|
||
strcpy (*string, tmp);
|
||
}
|
||
break;
|
||
--- 765,771 ----
|
||
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;
|
||
***************
|
||
*** 770,776 ****
|
||
unsigned int nbytes = buf[0]&_B_VALUE;
|
||
len = __objc_read_nbyte_uint(stream, nbytes, &nbytes);
|
||
if (len) {
|
||
! (*string) = (char*)__objc_xmalloc(nbytes+1);
|
||
if (key)
|
||
hash_add (&stream->stream_table, LONG2PTR(key), *string);
|
||
len = (*stream->read)(stream->physical, *string, nbytes);
|
||
--- 775,781 ----
|
||
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);
|
||
***************
|
||
*** 780,786 ****
|
||
break;
|
||
|
||
default:
|
||
! __objc_fatal("expected string, got opcode %c\n", (buf[0]&_B_CODE));
|
||
}
|
||
}
|
||
|
||
--- 785,792 ----
|
||
break;
|
||
|
||
default:
|
||
! objc_error(nil, OBJC_ERR_BAD_DATA,
|
||
! "expected string, got opcode %c\n", (buf[0]&_B_CODE));
|
||
}
|
||
}
|
||
|
||
***************
|
||
*** 825,837 ****
|
||
/* check null-byte */
|
||
len = (*stream->read)(stream->physical, buf, 1);
|
||
if (buf[0] != '\0')
|
||
! __objc_fatal("expected null-byte, got opcode %c", buf[0]);
|
||
}
|
||
|
||
else if ((buf[0]&_B_CODE) == _B_UCOMM)
|
||
{
|
||
if (key)
|
||
! __objc_fatal("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));
|
||
}
|
||
--- 831,844 ----
|
||
/* 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));
|
||
}
|
||
***************
|
||
*** 840,859 ****
|
||
{
|
||
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_fatal("cannot register root object...");
|
||
len = objc_read_object (stream, object);
|
||
__objc_finish_read_root_object (stream);
|
||
}
|
||
|
||
else
|
||
! __objc_fatal("expected object, got opcode %c", buf[0]);
|
||
}
|
||
return len;
|
||
}
|
||
--- 847,870 ----
|
||
{
|
||
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;
|
||
}
|
||
***************
|
||
*** 881,887 ****
|
||
/* get class */
|
||
len = objc_read_string (stream, &class_name);
|
||
(*class) = objc_get_class(class_name);
|
||
! free (class_name);
|
||
|
||
/* register */
|
||
if (key)
|
||
--- 892,898 ----
|
||
/* get class */
|
||
len = objc_read_string (stream, &class_name);
|
||
(*class) = objc_get_class(class_name);
|
||
! objc_free(class_name);
|
||
|
||
/* register */
|
||
if (key)
|
||
***************
|
||
*** 894,908 ****
|
||
else if ((buf[0]&_B_CODE) == _B_UCOMM)
|
||
{
|
||
if (key)
|
||
! __objc_fatal("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_fatal("cannot find class for key %lu", key);
|
||
}
|
||
|
||
else
|
||
! __objc_fatal("expected class, got opcode %c", buf[0]);
|
||
}
|
||
return len;
|
||
}
|
||
--- 905,921 ----
|
||
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;
|
||
}
|
||
***************
|
||
*** 936,942 ****
|
||
}
|
||
else
|
||
(*selector) = sel_get_any_uid(selector_name);
|
||
! free (selector_name);
|
||
|
||
/* register */
|
||
if (key)
|
||
--- 949,955 ----
|
||
}
|
||
else
|
||
(*selector) = sel_get_any_uid(selector_name);
|
||
! objc_free(selector_name);
|
||
|
||
/* register */
|
||
if (key)
|
||
***************
|
||
*** 946,958 ****
|
||
else if ((buf[0]&_B_CODE) == _B_UCOMM)
|
||
{
|
||
if (key)
|
||
! __objc_fatal("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_fatal("expected selector, got opcode %c", buf[0]);
|
||
}
|
||
return len;
|
||
}
|
||
--- 959,973 ----
|
||
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;
|
||
}
|
||
***************
|
||
*** 1019,1031 ****
|
||
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(*++type));
|
||
return objc_write_array (stream, type, len, data);
|
||
}
|
||
break;
|
||
--- 1034,1048 ----
|
||
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(*++type))
|
||
! ;
|
||
return objc_write_array (stream, type, len, data);
|
||
}
|
||
break;
|
||
***************
|
||
*** 1034,1041 ****
|
||
{
|
||
int acc_size = 0;
|
||
int align;
|
||
! while (*type != _C_STRUCT_E && *type++ != '='); /* skip "<name>=" */
|
||
! while (*type != _C_STRUCT_E);
|
||
{
|
||
align = objc_alignof_type (type); /* padd to alignment */
|
||
acc_size += ROUND (acc_size, align);
|
||
--- 1051,1059 ----
|
||
{
|
||
int acc_size = 0;
|
||
int align;
|
||
! while (*type != _C_STRUCT_E && *type++ != '=')
|
||
! ; /* skip "<name>=" */
|
||
! while (*type != _C_STRUCT_E)
|
||
{
|
||
align = objc_alignof_type (type); /* padd to alignment */
|
||
acc_size += ROUND (acc_size, align);
|
||
***************
|
||
*** 1047,1054 ****
|
||
}
|
||
|
||
default:
|
||
! fprintf(stderr, "objc_write_type: cannot parse typespec: %s\n", type);
|
||
! abort();
|
||
}
|
||
}
|
||
|
||
--- 1065,1072 ----
|
||
}
|
||
|
||
default:
|
||
! objc_error(nil, OBJC_ERR_BAD_TYPE,
|
||
! "objc_write_type: cannot parse typespec: %s\n", type);
|
||
}
|
||
}
|
||
|
||
***************
|
||
*** 1116,1122 ****
|
||
case _C_ARY_B:
|
||
{
|
||
int len = atoi(type+1);
|
||
! while (isdigit(*++type));
|
||
return objc_read_array (stream, type, len, data);
|
||
}
|
||
break;
|
||
--- 1134,1141 ----
|
||
case _C_ARY_B:
|
||
{
|
||
int len = atoi(type+1);
|
||
! while (isdigit(*++type))
|
||
! ;
|
||
return objc_read_array (stream, type, len, data);
|
||
}
|
||
break;
|
||
***************
|
||
*** 1125,1132 ****
|
||
{
|
||
int acc_size = 0;
|
||
int align;
|
||
! while (*type != _C_STRUCT_E && *type++ != '='); /* skip "<name>=" */
|
||
! while (*type != _C_STRUCT_E);
|
||
{
|
||
align = objc_alignof_type (type); /* padd to alignment */
|
||
acc_size += ROUND (acc_size, align);
|
||
--- 1144,1152 ----
|
||
{
|
||
int acc_size = 0;
|
||
int align;
|
||
! while (*type != _C_STRUCT_E && *type++ != '=')
|
||
! ; /* skip "<name>=" */
|
||
! while (*type != _C_STRUCT_E)
|
||
{
|
||
align = objc_alignof_type (type); /* padd to alignment */
|
||
acc_size += ROUND (acc_size, align);
|
||
***************
|
||
*** 1138,1145 ****
|
||
}
|
||
|
||
default:
|
||
! fprintf(stderr, "objc_read_type: cannot parse typespec: %s\n", type);
|
||
! abort();
|
||
}
|
||
}
|
||
|
||
--- 1158,1165 ----
|
||
}
|
||
|
||
default:
|
||
! objc_error(nil, OBJC_ERR_BAD_TYPE,
|
||
! "objc_read_type: cannot parse typespec: %s\n", type);
|
||
}
|
||
}
|
||
|
||
***************
|
||
*** 1229,1245 ****
|
||
{
|
||
int len = atoi(c+1);
|
||
const char* t = c;
|
||
! while (isdigit(*++t));
|
||
res = objc_write_array (stream, t, len, va_arg(args, void*));
|
||
t = objc_skip_typespec (t);
|
||
if (*t != _C_ARY_E)
|
||
! __objc_fatal("expected `]', got: %s", t);
|
||
}
|
||
break;
|
||
|
||
default:
|
||
! fprintf(stderr, "objc_write_types: cannot parse typespec: %s\n", type);
|
||
! abort();
|
||
}
|
||
}
|
||
va_end(args);
|
||
--- 1249,1266 ----
|
||
{
|
||
int len = atoi(c+1);
|
||
const char* t = c;
|
||
! while (isdigit(*++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);
|
||
***************
|
||
*** 1320,1336 ****
|
||
{
|
||
int len = atoi(c+1);
|
||
const char* t = c;
|
||
! while (isdigit(*++t));
|
||
res = objc_read_array (stream, t, len, va_arg(args, void*));
|
||
t = objc_skip_typespec (t);
|
||
if (*t != _C_ARY_E)
|
||
! __objc_fatal("expected `]', got: %s", t);
|
||
}
|
||
break;
|
||
|
||
default:
|
||
! fprintf(stderr, "objc_read_types: cannot parse typespec: %s\n", type);
|
||
! abort();
|
||
}
|
||
}
|
||
va_end(args);
|
||
--- 1341,1358 ----
|
||
{
|
||
int len = atoi(c+1);
|
||
const char* t = c;
|
||
! while (isdigit(*++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);
|
||
***************
|
||
*** 1379,1390 ****
|
||
return 1;
|
||
}
|
||
|
||
- static void
|
||
- __objc_free (void* p)
|
||
- {
|
||
- free (p);
|
||
- }
|
||
-
|
||
static int
|
||
__objc_fread(FILE* file, char* data, int len)
|
||
{
|
||
--- 1401,1406 ----
|
||
***************
|
||
*** 1406,1418 ****
|
||
static int
|
||
__objc_no_write(FILE* file, char* data, int len)
|
||
{
|
||
! __objc_fatal ("TypedStream not open for writing");
|
||
}
|
||
|
||
static int
|
||
__objc_no_read(FILE* file, char* data, int len)
|
||
{
|
||
! __objc_fatal ("TypedStream not open for reading");
|
||
}
|
||
|
||
static int
|
||
--- 1422,1434 ----
|
||
static int
|
||
__objc_no_write(FILE* file, char* data, int len)
|
||
{
|
||
! objc_error (nil, OBJC_ERR_NO_WRITE, "TypedStream not open for writing");
|
||
}
|
||
|
||
static int
|
||
__objc_no_read(FILE* file, char* data, int len)
|
||
{
|
||
! objc_error (nil, OBJC_ERR_NO_READ, "TypedStream not open for reading");
|
||
}
|
||
|
||
static int
|
||
***************
|
||
*** 1422,1431 ****
|
||
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_fatal ("cannot handle TypedStream version %d", stream->version);
|
||
return 1;
|
||
}
|
||
|
||
--- 1438,1449 ----
|
||
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;
|
||
}
|
||
|
||
***************
|
||
*** 1450,1460 ****
|
||
static void __objc_finish_read_root_object(struct objc_typed_stream* stream)
|
||
{
|
||
node_ptr node;
|
||
- struct objc_list* free_list;
|
||
SEL awake_sel = sel_get_any_uid ("awake");
|
||
|
||
/* resolve object forward references */
|
||
- free_list = list_cons(NULL, NULL);
|
||
for (node = hash_next (stream->object_refs, NULL); node;
|
||
node = hash_next (stream->object_refs, node))
|
||
{
|
||
--- 1468,1479 ----
|
||
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))
|
||
{
|
||
***************
|
||
*** 1464,1476 ****
|
||
while(reflist)
|
||
{
|
||
*((id*)reflist->head) = object;
|
||
! if (list_find(&free_list, reflist) == NULL)
|
||
! free_list = list_cons (reflist, free_list);
|
||
reflist = reflist->tail;
|
||
}
|
||
}
|
||
! list_mapcar (free_list, __objc_free);
|
||
! list_free (free_list);
|
||
|
||
/* empty object reference table */
|
||
hash_delete (stream->object_refs);
|
||
--- 1483,1501 ----
|
||
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);
|
||
***************
|
||
*** 1503,1509 ****
|
||
TypedStream*
|
||
objc_open_typed_stream (FILE* physical, int mode)
|
||
{
|
||
! TypedStream* s = (TypedStream*)__objc_xmalloc(sizeof(TypedStream));
|
||
|
||
s->mode = mode;
|
||
s->physical = physical;
|
||
--- 1528,1534 ----
|
||
TypedStream*
|
||
objc_open_typed_stream (FILE* physical, int mode)
|
||
{
|
||
! TypedStream* s = (TypedStream*)objc_malloc(sizeof(TypedStream));
|
||
|
||
s->mode = mode;
|
||
s->physical = physical;
|
||
***************
|
||
*** 1590,1596 ****
|
||
if (stream->type == (OBJC_MANAGED_STREAM | OBJC_FILE_STREAM))
|
||
fclose ((FILE*)stream->physical);
|
||
|
||
! free (stream);
|
||
}
|
||
|
||
BOOL
|
||
--- 1615,1621 ----
|
||
if (stream->type == (OBJC_MANAGED_STREAM | OBJC_FILE_STREAM))
|
||
fclose ((FILE*)stream->physical);
|
||
|
||
! objc_free(stream);
|
||
}
|
||
|
||
BOOL
|
||
diff -rcP gcc-2.7.2.1/objc/class.c gcc-2.7.2.1-objc-960906/objc/class.c
|
||
*** gcc-2.7.2.1/objc/class.c Fri Sep 6 11:28:56 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/class.c Fri Sep 6 10:33:29 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective C Runtime class related functions
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup and Dennis Glatting.
|
||
|
||
This file is part of GNU CC.
|
||
--- 1,5 ----
|
||
/* GNU Objective C Runtime class related functions
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup and Dennis Glatting.
|
||
|
||
This file is part of GNU CC.
|
||
***************
|
||
*** 27,42 ****
|
||
#include "sarray.h"
|
||
|
||
/* The table of classname->class. Used for objc_lookup_class and friends */
|
||
! static cache_ptr __objc_class_hash = 0;
|
||
|
||
/* 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;
|
||
|
||
|
||
/* True when class links has been resolved */
|
||
! BOOL __objc_class_links_resolved = NO;
|
||
|
||
|
||
/* Initial number of buckets size of class hash table. */
|
||
--- 27,42 ----
|
||
#include "sarray.h"
|
||
|
||
/* The table of classname->class. Used for objc_lookup_class and friends */
|
||
! static cache_ptr __objc_class_hash = 0; /* !T:MUTEX */
|
||
|
||
/* 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 */
|
||
|
||
|
||
/* Initial number of buckets size of class hash table. */
|
||
***************
|
||
*** 49,58 ****
|
||
--- 49,62 ----
|
||
if(__objc_class_hash)
|
||
return;
|
||
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
__objc_class_hash
|
||
= hash_new (CLASS_HASH_SIZE,
|
||
(hash_func_type) hash_string,
|
||
(compare_func_type) compare_strings);
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
}
|
||
|
||
/* This function adds a class to the class hash table, and assigns the
|
||
***************
|
||
*** 62,67 ****
|
||
--- 66,73 ----
|
||
{
|
||
Class h_class;
|
||
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
/* make sure the table is there */
|
||
assert(__objc_class_hash);
|
||
|
||
***************
|
||
*** 82,87 ****
|
||
--- 88,95 ----
|
||
++class_number;
|
||
hash_add (&__objc_class_hash, class->name, class);
|
||
}
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
}
|
||
|
||
/* Get the class object for the class named NAME. If NAME does not
|
||
***************
|
||
*** 91,101 ****
|
||
--- 99,113 ----
|
||
{
|
||
Class class;
|
||
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
/* Make sure the class hash table exists. */
|
||
assert (__objc_class_hash);
|
||
|
||
class = hash_value_for_key (__objc_class_hash, name);
|
||
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
if (class)
|
||
return class;
|
||
|
||
***************
|
||
*** 113,123 ****
|
||
--- 125,139 ----
|
||
{
|
||
Class class;
|
||
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
/* Make sure the class hash table exists. */
|
||
assert (__objc_class_hash);
|
||
|
||
class = hash_value_for_key (__objc_class_hash, name);
|
||
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
if (class)
|
||
return class;
|
||
|
||
***************
|
||
*** 127,134 ****
|
||
if(class)
|
||
return class;
|
||
|
||
! fprintf(stderr, "objc runtime: cannot find class %s\n", name);
|
||
! abort();
|
||
}
|
||
|
||
MetaClass
|
||
--- 143,150 ----
|
||
if(class)
|
||
return class;
|
||
|
||
! objc_error(nil, OBJC_ERR_BAD_CLASS,
|
||
! "objc runtime: cannot find class %s\n", name);
|
||
}
|
||
|
||
MetaClass
|
||
***************
|
||
*** 149,159 ****
|
||
--- 165,180 ----
|
||
Class
|
||
objc_next_class(void **enum_state)
|
||
{
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
/* make sure the table is there */
|
||
assert(__objc_class_hash);
|
||
|
||
*(node_ptr*)enum_state =
|
||
hash_next(__objc_class_hash, *(node_ptr*)enum_state);
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
if (*(node_ptr*)enum_state)
|
||
return (*(node_ptr*)enum_state)->value;
|
||
return (Class)0;
|
||
***************
|
||
*** 169,174 ****
|
||
--- 190,197 ----
|
||
|
||
assert(object_class);
|
||
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
/* Assign subclass links */
|
||
for (node = hash_next (__objc_class_hash, NULL); node;
|
||
node = hash_next (__objc_class_hash, node))
|
||
***************
|
||
*** 234,239 ****
|
||
--- 257,264 ----
|
||
sub_class->class_pointer->super_class = class1->class_pointer;
|
||
}
|
||
}
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
}
|
||
|
||
|
||
***************
|
||
*** 281,287 ****
|
||
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);
|
||
}
|
||
--- 306,313 ----
|
||
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);
|
||
}
|
||
***************
|
||
*** 307,312 ****
|
||
--- 333,340 ----
|
||
what the keys of the hashtable is, change all values that are
|
||
superclass into impostor. */
|
||
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
for (node = hash_next (__objc_class_hash, NULL); node;
|
||
node = hash_next (__objc_class_hash, node))
|
||
{
|
||
***************
|
||
*** 316,321 ****
|
||
--- 344,351 ----
|
||
node->value = impostor; /* change hash table value */
|
||
}
|
||
}
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
|
||
/* next, we update the dispatch tables... */
|
||
__objc_update_dispatch_table_for_class (CLASSOF (impostor));
|
||
diff -rcP gcc-2.7.2.1/objc/encoding.c gcc-2.7.2.1-objc-960906/objc/encoding.c
|
||
*** gcc-2.7.2.1/objc/encoding.c Fri Sep 6 11:28:57 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/encoding.c Fri Sep 6 10:33:29 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* Encoding of types for Objective C.
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
--- 1,5 ----
|
||
/* Encoding of types for Objective C.
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
***************
|
||
*** 25,32 ****
|
||
--- 25,37 ----
|
||
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 "encoding.h"
|
||
|
||
+ #ifndef OBJC_FORWARDING_STACK_OFFSET
|
||
+ # define OBJC_FORWARDING_STACK_OFFSET 0
|
||
+ #endif
|
||
+
|
||
#define MAX(X, Y) \
|
||
({ typeof(X) __x = (X), __y = (Y); \
|
||
(__x > __y ? __x : __y); })
|
||
***************
|
||
*** 153,159 ****
|
||
}
|
||
|
||
default:
|
||
! abort();
|
||
}
|
||
}
|
||
|
||
--- 158,164 ----
|
||
}
|
||
|
||
default:
|
||
! objc_error(nil, OBJC_ERR_BAD_TYPE, "unknown type %s\n", type);
|
||
}
|
||
}
|
||
|
||
***************
|
||
*** 218,223 ****
|
||
--- 223,229 ----
|
||
return __alignof__(double);
|
||
break;
|
||
|
||
+ case _C_PTR:
|
||
case _C_ATOM:
|
||
case _C_CHARPTR:
|
||
return __alignof__(char*);
|
||
***************
|
||
*** 250,256 ****
|
||
}
|
||
|
||
default:
|
||
! abort();
|
||
}
|
||
}
|
||
|
||
--- 256,262 ----
|
||
}
|
||
|
||
default:
|
||
! objc_error(nil, OBJC_ERR_BAD_TYPE, "unknown type %s\n", type);
|
||
}
|
||
}
|
||
|
||
***************
|
||
*** 341,346 ****
|
||
--- 347,353 ----
|
||
case _C_FLT:
|
||
case _C_DBL:
|
||
case _C_VOID:
|
||
+ case _C_UNDEF:
|
||
return ++type;
|
||
break;
|
||
|
||
***************
|
||
*** 352,358 ****
|
||
if (*type == _C_ARY_E)
|
||
return ++type;
|
||
else
|
||
! abort();
|
||
|
||
case _C_STRUCT_B:
|
||
/* skip name, and elements until closing '}' */
|
||
--- 359,365 ----
|
||
if (*type == _C_ARY_E)
|
||
return ++type;
|
||
else
|
||
! objc_error(nil, OBJC_ERR_BAD_TYPE, "bad array type %s\n", type);
|
||
|
||
case _C_STRUCT_B:
|
||
/* skip name, and elements until closing '}' */
|
||
***************
|
||
*** 374,380 ****
|
||
return objc_skip_typespec (++type);
|
||
|
||
default:
|
||
! abort();
|
||
}
|
||
}
|
||
|
||
--- 381,387 ----
|
||
return objc_skip_typespec (++type);
|
||
|
||
default:
|
||
! objc_error(nil, OBJC_ERR_BAD_TYPE, "unknown type %s\n", type);
|
||
}
|
||
}
|
||
|
||
***************
|
||
*** 467,475 ****
|
||
t = objc_skip_typespec (t);
|
||
|
||
if (*t == '+')
|
||
! return argframe->arg_regs + atoi (++t);
|
||
else
|
||
! return argframe->arg_ptr + atoi (t);
|
||
}
|
||
|
||
/*
|
||
--- 474,482 ----
|
||
t = objc_skip_typespec (t);
|
||
|
||
if (*t == '+')
|
||
! return argframe->arg_regs + atoi (++t) - OBJC_FORWARDING_STACK_OFFSET;
|
||
else
|
||
! return argframe->arg_ptr + atoi (t) - OBJC_FORWARDING_STACK_OFFSET;
|
||
}
|
||
|
||
/*
|
||
***************
|
||
*** 510,518 ****
|
||
t = objc_skip_typespec (t);
|
||
|
||
if (*t == '+')
|
||
! return argframe->arg_regs + atoi (++t);
|
||
else
|
||
! return argframe->arg_ptr + atoi (t);
|
||
}
|
||
|
||
unsigned
|
||
--- 517,525 ----
|
||
t = objc_skip_typespec (t);
|
||
|
||
if (*t == '+')
|
||
! return argframe->arg_regs + atoi (++t) - OBJC_FORWARDING_STACK_OFFSET;
|
||
else
|
||
! return argframe->arg_ptr + atoi (t) - OBJC_FORWARDING_STACK_OFFSET;
|
||
}
|
||
|
||
unsigned
|
||
diff -rcP gcc-2.7.2.1/objc/encoding.h gcc-2.7.2.1-objc-960906/objc/encoding.h
|
||
*** gcc-2.7.2.1/objc/encoding.h Fri Sep 6 11:28:57 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/encoding.h Fri Sep 6 10:33:29 1996
|
||
***************
|
||
*** 57,63 ****
|
||
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_size_of_arguments (struct objc_method*);
|
||
|
||
char* method_get_first_argument (struct objc_method*,
|
||
arglist_t argframe,
|
||
--- 57,63 ----
|
||
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,
|
||
diff -rcP gcc-2.7.2.1/objc/hash.c gcc-2.7.2.1-objc-960906/objc/hash.c
|
||
*** gcc-2.7.2.1/objc/hash.c Fri Sep 6 11:28:57 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/hash.c Fri Sep 6 10:33:30 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* Hash tables for Objective C internal structures
|
||
! Copyright (C) 1993 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
--- 1,5 ----
|
||
/* Hash tables for Objective C internal structures
|
||
! Copyright (C) 1993, 1996 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
***************
|
||
*** 27,33 ****
|
||
#include "assert.h"
|
||
|
||
#include "objc/hash.h"
|
||
- #include "objc/objc.h"
|
||
|
||
#include "runtime.h" /* for DEBUG_PRINTF */
|
||
|
||
--- 27,32 ----
|
||
***************
|
||
*** 40,47 ****
|
||
#define EXPANSION(cache) \
|
||
((cache)->size * 2)
|
||
|
||
- void *__objc_xcalloc (size_t, size_t);
|
||
-
|
||
cache_ptr
|
||
hash_new (unsigned int size, hash_func_type hash_func,
|
||
compare_func_type compare_func)
|
||
--- 39,44 ----
|
||
***************
|
||
*** 54,66 ****
|
||
|
||
/* Allocate the cache structure. calloc insures
|
||
its initialization for default values. */
|
||
! cache = (cache_ptr) __objc_xcalloc (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_xcalloc (size, sizeof (node_ptr));
|
||
assert (cache->node_table);
|
||
|
||
cache->size = size;
|
||
--- 51,63 ----
|
||
|
||
/* 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;
|
||
***************
|
||
*** 83,97 ****
|
||
hash_delete (cache_ptr cache)
|
||
{
|
||
node_ptr node;
|
||
!
|
||
|
||
/* Purge all key/value pairs from the table. */
|
||
! while ((node = hash_next (cache, NULL)))
|
||
! hash_remove (cache, node->key);
|
||
|
||
/* Release the array of nodes and the cache itself. */
|
||
! free (cache->node_table);
|
||
! free (cache);
|
||
}
|
||
|
||
|
||
--- 80,107 ----
|
||
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);
|
||
}
|
||
|
||
|
||
***************
|
||
*** 99,105 ****
|
||
hash_add (cache_ptr *cachep, const void *key, void *value)
|
||
{
|
||
size_t indx = (*(*cachep)->hash_func)(*cachep, key);
|
||
! node_ptr node = (node_ptr) __objc_xcalloc (1, sizeof (struct cache_node));
|
||
|
||
|
||
assert (node);
|
||
--- 109,115 ----
|
||
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);
|
||
***************
|
||
*** 172,178 ****
|
||
/* 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;
|
||
! free (node);
|
||
} else {
|
||
|
||
/* Otherwise, find the hash entry. */
|
||
--- 182,188 ----
|
||
/* 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. */
|
||
***************
|
||
*** 183,189 ****
|
||
|
||
if ((*cache->compare_func)(node->key, key)) {
|
||
prev->next = node->next, removed = YES;
|
||
! free (node);
|
||
} else
|
||
prev = node, node = node->next;
|
||
} while (!removed && node);
|
||
--- 193,199 ----
|
||
|
||
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);
|
||
***************
|
||
*** 251,254 ****
|
||
--- 261,283 ----
|
||
} 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;
|
||
}
|
||
diff -rcP gcc-2.7.2.1/objc/hash.h gcc-2.7.2.1-objc-960906/objc/hash.h
|
||
*** gcc-2.7.2.1/objc/hash.h Fri Sep 6 11:28:58 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/hash.h Fri Sep 6 10:33:30 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* Hash tables for Objective C method dispatch.
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
--- 1,5 ----
|
||
/* Hash tables for Objective C method dispatch.
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
***************
|
||
*** 29,34 ****
|
||
--- 29,35 ----
|
||
#define __hash_INCLUDE_GNU
|
||
|
||
#include <stddef.h>
|
||
+ #include <objc/objc.h>
|
||
|
||
/*
|
||
* This data structure is used to hold items
|
||
***************
|
||
*** 140,145 ****
|
||
--- 141,149 ----
|
||
|
||
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);
|
||
|
||
/************************************************
|
||
|
||
diff -rcP gcc-2.7.2.1/objc/init.c gcc-2.7.2.1-objc-960906/objc/init.c
|
||
*** gcc-2.7.2.1/objc/init.c Fri Sep 6 11:28:58 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/init.c Fri Sep 6 10:33:30 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective C Runtime initialization
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
--- 1,5 ----
|
||
/* GNU Objective C Runtime initialization
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
***************
|
||
*** 31,43 ****
|
||
#define PROTOCOL_VERSION 2
|
||
|
||
/* This list contains all modules currently loaded into the runtime */
|
||
! static struct objc_list* __objc_module_list = 0;
|
||
|
||
/* This list contains all proto_list's not yet assigned class links */
|
||
! static struct objc_list* unclaimed_proto_list = 0;
|
||
|
||
/* List of unresolved static instances. */
|
||
! static struct objc_list *uninitialized_statics;
|
||
|
||
/* Check compiler vs runtime version */
|
||
static void init_check_module_version (Module_t);
|
||
--- 31,49 ----
|
||
#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;
|
||
!
|
||
! /* 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);
|
||
***************
|
||
*** 52,65 ****
|
||
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) = 0;
|
||
|
||
/* Is all categories/classes resolved? */
|
||
! BOOL __objc_dangling_categories = NO;
|
||
|
||
extern SEL
|
||
__sel_register_typed_name (const char *name, const char *types,
|
||
! struct objc_selector *orig);
|
||
|
||
/* Run through the statics list, removing modules as soon as all its statics
|
||
have been initialized. */
|
||
--- 58,71 ----
|
||
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) = 0; /* !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);
|
||
|
||
/* Run through the statics list, removing modules as soon as all its statics
|
||
have been initialized. */
|
||
***************
|
||
*** 69,74 ****
|
||
--- 75,82 ----
|
||
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;
|
||
***************
|
||
*** 109,119 ****
|
||
/* Remove this module from the uninitialized list. */
|
||
struct objc_list *this = *cell;
|
||
*cell = this->tail;
|
||
! free (this);
|
||
}
|
||
else
|
||
cell = &(*cell)->tail;
|
||
}
|
||
} /* objc_init_statics */
|
||
|
||
/* This function is called by constructor functions generated for each
|
||
--- 117,129 ----
|
||
/* 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
|
||
***************
|
||
*** 150,155 ****
|
||
--- 160,170 ----
|
||
/* 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();
|
||
***************
|
||
*** 157,162 ****
|
||
--- 172,178 ----
|
||
}
|
||
|
||
/* 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. */
|
||
***************
|
||
*** 167,174 ****
|
||
const char *name, *type;
|
||
name = (char*)selectors[i].sel_id;
|
||
type = (char*)selectors[i].sel_types;
|
||
__sel_register_typed_name (name, type,
|
||
! (struct objc_selector*)&(selectors[i]));
|
||
}
|
||
}
|
||
|
||
--- 183,193 ----
|
||
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);
|
||
}
|
||
}
|
||
|
||
***************
|
||
*** 183,188 ****
|
||
--- 202,211 ----
|
||
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);
|
||
|
||
***************
|
||
*** 190,195 ****
|
||
--- 213,222 ----
|
||
__objc_register_selectors_from_class (class);
|
||
__objc_register_selectors_from_class ((Class) class->class_pointer);
|
||
|
||
+ /* Register the instance methods as class methods, this is
|
||
+ only done for root classes. */
|
||
+ __objc_register_instance_methods_to_class(class);
|
||
+
|
||
/* Install the fake dispatch tables */
|
||
__objc_install_premature_dtable(class);
|
||
__objc_install_premature_dtable(class->class_pointer);
|
||
***************
|
||
*** 230,235 ****
|
||
--- 257,266 ----
|
||
__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);
|
||
+
|
||
if (_objc_load_callback)
|
||
_objc_load_callback(class, category);
|
||
}
|
||
***************
|
||
*** 275,280 ****
|
||
--- 306,315 ----
|
||
__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);
|
||
+
|
||
if (_objc_load_callback)
|
||
_objc_load_callback(class, category);
|
||
}
|
||
***************
|
||
*** 287,292 ****
|
||
--- 322,328 ----
|
||
unclaimed_proto_list = 0;
|
||
}
|
||
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
}
|
||
|
||
/* Sanity check the version of gcc used to compile `module'*/
|
||
***************
|
||
*** 294,308 ****
|
||
{
|
||
if ((module->version != OBJC_VERSION) || (module->size != sizeof (Module)))
|
||
{
|
||
! fprintf (stderr, "Module %s version %d doesn't match runtime %d\n",
|
||
! module->name, (int)module->version, OBJC_VERSION);
|
||
if(module->version > OBJC_VERSION)
|
||
! fprintf (stderr, "Runtime (libobjc.a) is out of date\n");
|
||
else if (module->version < OBJC_VERSION)
|
||
! fprintf (stderr, "Compiler (gcc) is out of date\n");
|
||
else
|
||
! fprintf (stderr, "Objective C internal error -- bad Module size\n");
|
||
! abort ();
|
||
}
|
||
}
|
||
|
||
--- 330,346 ----
|
||
{
|
||
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);
|
||
}
|
||
}
|
||
|
||
***************
|
||
*** 315,326 ****
|
||
--- 353,367 ----
|
||
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;
|
||
}
|
||
|
||
***************
|
||
*** 341,353 ****
|
||
}
|
||
else if (protos->list[i]->class_pointer != proto_class)
|
||
{
|
||
! fprintf (stderr,
|
||
! "Version %d doesn't match runtime protocol version %d\n",
|
||
! (int)((char*)protos->list[i]->class_pointer-(char*)0),
|
||
! PROTOCOL_VERSION);
|
||
! abort ();
|
||
}
|
||
}
|
||
}
|
||
|
||
static void __objc_class_add_protocols (Class class,
|
||
--- 382,395 ----
|
||
}
|
||
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,
|
||
diff -rcP gcc-2.7.2.1/objc/makefile.dos gcc-2.7.2.1-objc-960906/objc/makefile.dos
|
||
*** gcc-2.7.2.1/objc/makefile.dos Fri Sep 6 11:28:59 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/makefile.dos Fri Sep 6 10:33:31 1996
|
||
***************
|
||
*** 1,5 ****
|
||
# GNU Objective C Runtime Makefile for compiling with djgpp
|
||
! # Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
||
#
|
||
# This file is part of GNU CC.
|
||
#
|
||
--- 1,5 ----
|
||
# 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.
|
||
#
|
||
***************
|
||
*** 37,53 ****
|
||
-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
|
||
|
||
libobjc.a: $(OBJC_O)
|
||
-rm -f libobjc.a
|
||
ar rc libobjc.a $(OBJC_O)
|
||
ranlib libobjc.a
|
||
|
||
! OBJC_H = hash.h list.h sarray.h objc.h \
|
||
objc-api.h \
|
||
object.h protocol.h mutex.h \
|
||
! typedstream.h
|
||
|
||
mostlyclean:
|
||
-rm -f *.o libobjc.a xforward fflags
|
||
--- 37,53 ----
|
||
-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
|
||
diff -rcP gcc-2.7.2.1/objc/misc.c gcc-2.7.2.1-objc-960906/objc/misc.c
|
||
*** gcc-2.7.2.1/objc/misc.c Fri Sep 6 11:28:59 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/misc.c Fri Sep 6 10:33:31 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective C Runtime Miscellaneous
|
||
! Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
|
||
|
||
Author: Kresten Krab Thorup
|
||
|
||
--- 1,5 ----
|
||
/* GNU Objective C Runtime Miscellaneous
|
||
! Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
|
||
|
||
Author: Kresten Krab Thorup
|
||
|
||
***************
|
||
*** 26,80 ****
|
||
however invalidate any other reasons why the executable file might be
|
||
covered by the GNU General Public License. */
|
||
|
||
- #ifdef __alpha__
|
||
#include <stdlib.h>
|
||
- extern int write (int, const char*, int);
|
||
- extern size_t strlen (const char*);
|
||
- #endif
|
||
-
|
||
#include "runtime.h"
|
||
|
||
! void objc_error(id object, const char* fmt, va_list);
|
||
|
||
! void (*_objc_error)(id, const char*, va_list) = objc_error;
|
||
|
||
void
|
||
! objc_error(id object, const char* fmt, va_list ap)
|
||
{
|
||
! vfprintf (stderr, fmt, ap);
|
||
! abort ();
|
||
}
|
||
|
||
! volatile void
|
||
! objc_fatal(const char* msg)
|
||
{
|
||
! write(2, msg, (int)strlen((const char*)msg));
|
||
! abort();
|
||
}
|
||
|
||
! void*
|
||
! __objc_xmalloc(size_t size)
|
||
{
|
||
! void* res = (void*) malloc(size);
|
||
if(!res)
|
||
! objc_fatal("Virtual memory exhausted\n");
|
||
return res;
|
||
}
|
||
|
||
! void*
|
||
! __objc_xrealloc(void* mem, size_t size)
|
||
{
|
||
! void* res = (void*) realloc(mem, size);
|
||
if(!res)
|
||
! objc_fatal("Virtual memory exhausted\n");
|
||
return res;
|
||
}
|
||
|
||
! void*
|
||
! __objc_xcalloc(size_t nelem, size_t size)
|
||
{
|
||
! void* res = (void*)calloc(nelem, size);
|
||
if(!res)
|
||
! objc_fatal("Virtual memory exhausted\n");
|
||
return res;
|
||
}
|
||
--- 26,152 ----
|
||
however invalidate any other reasons why the executable file might be
|
||
covered by the GNU General Public License. */
|
||
|
||
#include <stdlib.h>
|
||
#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.
|
||
+ */
|
||
+ 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;
|
||
diff -rcP gcc-2.7.2.1/objc/nil_method.c gcc-2.7.2.1-objc-960906/objc/nil_method.c
|
||
*** gcc-2.7.2.1/objc/nil_method.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/nil_method.c Fri Sep 6 10:33:32 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,40 ----
|
||
+ /* GNU Objective C Runtime nil receiver function
|
||
+ Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
+ Contributed by Kresten Krab Thorup
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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
|
||
+ 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"
|
||
+
|
||
+ id
|
||
+ nil_method(id receiver, SEL op, ...)
|
||
+ {
|
||
+ return receiver;
|
||
+ }
|
||
+
|
||
+
|
||
+
|
||
+
|
||
diff -rcP gcc-2.7.2.1/objc/objc-api.h gcc-2.7.2.1-objc-960906/objc/objc-api.h
|
||
*** gcc-2.7.2.1/objc/objc-api.h Fri Sep 6 11:28:59 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/objc-api.h Fri Sep 6 10:33:32 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective-C Runtime API.
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
--- 1,5 ----
|
||
/* GNU Objective-C Runtime API.
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
***************
|
||
*** 29,35 ****
|
||
--- 29,37 ----
|
||
|
||
#include "objc/objc.h"
|
||
#include "objc/hash.h"
|
||
+ #include "objc/thr.h"
|
||
#include <stdio.h>
|
||
+ #include <stdarg.h>
|
||
|
||
/* For functions which return Method_t */
|
||
#define METHOD_NULL (Method_t)0
|
||
***************
|
||
*** 73,78 ****
|
||
--- 75,131 ----
|
||
#define _C_STRUCT_E '}'
|
||
|
||
|
||
+ /*
|
||
+ ** 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 */
|
||
|
||
/*
|
||
** Set this variable nonzero to print a line describing each
|
||
***************
|
||
*** 135,141 ****
|
||
|
||
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;
|
||
--- 188,195 ----
|
||
|
||
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;
|
||
***************
|
||
*** 308,319 ****
|
||
*/
|
||
extern void (*_objc_load_callback)(Class class, Category* category);
|
||
|
||
extern id (*_objc_object_alloc)(Class class);
|
||
-
|
||
extern id (*_objc_object_copy)(id object);
|
||
-
|
||
extern id (*_objc_object_dispose)(id object);
|
||
|
||
Method_t class_get_class_method(MetaClass class, SEL aSel);
|
||
|
||
Method_t class_get_instance_method(Class class, SEL aSel);
|
||
--- 362,415 ----
|
||
*/
|
||
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 *);
|
||
+
|
||
Method_t class_get_class_method(MetaClass class, SEL aSel);
|
||
|
||
Method_t class_get_instance_method(Class class, SEL aSel);
|
||
***************
|
||
*** 405,410 ****
|
||
--- 501,512 ----
|
||
|
||
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);
|
||
***************
|
||
*** 470,475 ****
|
||
--- 572,580 ----
|
||
{
|
||
return CLS_ISMETA((Class)object);
|
||
}
|
||
+
|
||
+ struct sarray*
|
||
+ objc_get_uninstalled_dtable();
|
||
|
||
#endif /* not __objc_api_INCLUDE_GNU */
|
||
|
||
diff -rcP gcc-2.7.2.1/objc/objc-list.h gcc-2.7.2.1-objc-960906/objc/objc-list.h
|
||
*** gcc-2.7.2.1/objc/objc-list.h Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/objc-list.h Fri Sep 6 10:33:32 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,148 ----
|
||
+ /* Generic single linked list to keep various information
|
||
+ Copyright (C) 1993, 1994, 1996 Free Software Foundation, Inc.
|
||
+
|
||
+ Author: Kresten Krab Thorup
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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 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 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)
|
||
+ {
|
||
+ while(index-- != 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 __GNU_OBJC_LIST_H
|
||
diff -rcP gcc-2.7.2.1/objc/objc.h gcc-2.7.2.1-objc-960906/objc/objc.h
|
||
*** gcc-2.7.2.1/objc/objc.h Fri Sep 6 11:29:00 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/objc.h Fri Sep 6 10:33:33 1996
|
||
***************
|
||
*** 103,111 ****
|
||
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
|
||
--- 103,111 ----
|
||
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
|
||
diff -rcP gcc-2.7.2.1/objc/objects.c gcc-2.7.2.1-objc-960906/objc/objects.c
|
||
*** gcc-2.7.2.1/objc/objects.c Fri Sep 6 11:29:00 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/objects.c Fri Sep 6 10:33:33 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective C Runtime class related functions
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
--- 1,5 ----
|
||
/* 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.
|
||
***************
|
||
*** 31,39 ****
|
||
id __objc_object_dispose(id);
|
||
id __objc_object_copy(id);
|
||
|
||
! id (*_objc_object_alloc)(Class) = __objc_object_alloc;
|
||
! id (*_objc_object_dispose)(id) = __objc_object_dispose;
|
||
! id (*_objc_object_copy)(id) = __objc_object_copy;
|
||
|
||
id
|
||
class_create_instance(Class class)
|
||
--- 31,39 ----
|
||
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)
|
||
***************
|
||
*** 66,84 ****
|
||
if (_objc_object_dispose)
|
||
(*_objc_object_dispose)(object);
|
||
else
|
||
! free(object);
|
||
}
|
||
return nil;
|
||
}
|
||
|
||
id __objc_object_alloc(Class class)
|
||
{
|
||
! return (id)__objc_xmalloc(class->instance_size);
|
||
}
|
||
|
||
id __objc_object_dispose(id object)
|
||
{
|
||
! free(object);
|
||
return 0;
|
||
}
|
||
|
||
--- 66,84 ----
|
||
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;
|
||
}
|
||
|
||
diff -rcP gcc-2.7.2.1/objc/runtime.h gcc-2.7.2.1-objc-960906/objc/runtime.h
|
||
*** gcc-2.7.2.1/objc/runtime.h Fri Sep 6 11:29:00 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/runtime.h Fri Sep 6 10:33:33 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective C Runtime internal declarations
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
--- 1,5 ----
|
||
/* GNU Objective C Runtime internal declarations
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
***************
|
||
*** 37,44 ****
|
||
#include "objc/objc.h" /* core data types */
|
||
#include "objc/objc-api.h" /* runtime api functions */
|
||
|
||
#include "objc/hash.h" /* hash structures */
|
||
! #include "objc/list.h" /* linear lists */
|
||
|
||
extern void __objc_add_class_to_hash(Class); /* (objc-class.c) */
|
||
extern void __objc_init_selector_tables(); /* (objc-sel.c) */
|
||
--- 37,46 ----
|
||
#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(); /* (objc-sel.c) */
|
||
***************
|
||
*** 48,57 ****
|
||
extern void __objc_resolve_class_links(); /* (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 void class_add_method_list(Class, MethodList_t);
|
||
|
||
! extern void objc_error(id object, const char* fmt, va_list);
|
||
! extern void (*_objc_error)(id, const char*, va_list);
|
||
|
||
/* True when class links has been resolved */
|
||
extern BOOL __objc_class_links_resolved;
|
||
--- 50,64 ----
|
||
extern void __objc_resolve_class_links(); /* (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 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;
|
||
***************
|
||
*** 59,64 ****
|
||
--- 66,77 ----
|
||
/* Number of selectors stored in each of the selector tables */
|
||
extern 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
|
||
***************
|
||
*** 67,73 ****
|
||
|
||
BOOL __objc_responds_to (id object, SEL sel); /* for internal use only! */
|
||
SEL __sel_register_typed_name (const char*, const char*,
|
||
! struct objc_selector*);
|
||
|
||
#endif /* not __objc_runtime_INCLUDE_GNU */
|
||
|
||
--- 80,86 ----
|
||
|
||
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);
|
||
|
||
#endif /* not __objc_runtime_INCLUDE_GNU */
|
||
|
||
diff -rcP gcc-2.7.2.1/objc/sarray.c gcc-2.7.2.1-objc-960906/objc/sarray.c
|
||
*** gcc-2.7.2.1/objc/sarray.c Fri Sep 6 11:29:01 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/sarray.c Fri Sep 6 10:33:34 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* Sparse Arrays for Objective C dispatch tables
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
--- 1,5 ----
|
||
/* Sparse Arrays for Objective C dispatch tables
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
***************
|
||
*** 25,37 ****
|
||
the executable file might be covered by the GNU General Public License. */
|
||
|
||
#include "objc/sarray.h"
|
||
#include <stdio.h>
|
||
#include "assert.h"
|
||
|
||
! int nbuckets = 0;
|
||
! int nindices = 0;
|
||
! int narrays = 0;
|
||
! int idxsize = 0;
|
||
|
||
#ifdef OBJC_SPARSE2
|
||
const char* __objc_sparse2_id = "2 level sparse indices";
|
||
--- 25,40 ----
|
||
the executable file might be covered by the GNU General Public License. */
|
||
|
||
#include "objc/sarray.h"
|
||
+ #include "objc/runtime.h"
|
||
#include <stdio.h>
|
||
#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";
|
||
***************
|
||
*** 43,58 ****
|
||
|
||
#ifdef __alpha__
|
||
const void *memcpy (void*, const void*, size_t);
|
||
- void free (const void*);
|
||
#endif
|
||
|
||
void
|
||
sarray_at_put(struct sarray* array, sidx index, void* element)
|
||
{
|
||
#ifdef OBJC_SPARSE3
|
||
struct sindex** the_index;
|
||
#endif
|
||
struct sbucket** the_bucket;
|
||
#ifdef OBJC_SPARSE3
|
||
size_t ioffset;
|
||
#endif
|
||
--- 46,107 ----
|
||
|
||
#ifdef __alpha__
|
||
const void *memcpy (void*, const void*, size_t);
|
||
#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
|
||
***************
|
||
*** 96,117 ****
|
||
if ((*the_index) == array->empty_index) {
|
||
|
||
/* The index was previously empty, allocate a new */
|
||
! *the_index = (struct sindex*)__objc_xmalloc(sizeof(struct sindex));
|
||
! memcpy(*the_index, array->empty_index, sizeof(struct sindex));
|
||
! (*the_index)->version = array->version;
|
||
the_bucket = &((*the_index)->buckets[boffset]);
|
||
- nindices += 1;
|
||
|
||
! } else if ((*the_index)->version != array->version) {
|
||
|
||
/* This index must be lazy copied */
|
||
struct sindex* old_index = *the_index;
|
||
! *the_index = (struct sindex*)__objc_xmalloc(sizeof(struct sindex));
|
||
! memcpy( *the_index,old_index, sizeof(struct sindex));
|
||
! (*the_index)->version = array->version;
|
||
the_bucket = &((*the_index)->buckets[boffset]);
|
||
- nindices += 1;
|
||
|
||
}
|
||
|
||
#endif /* OBJC_SPARSE3 */
|
||
--- 145,168 ----
|
||
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 */
|
||
***************
|
||
*** 122,139 ****
|
||
|
||
/* The bucket was previously empty (or something like that), */
|
||
/* allocate a new. This is the effect of `lazy' allocation */
|
||
! *the_bucket = (struct sbucket*)__objc_xmalloc(sizeof(struct sbucket));
|
||
! memcpy((void *) *the_bucket, (const void*)array->empty_bucket, sizeof(struct sbucket));
|
||
! (*the_bucket)->version = array->version;
|
||
nbuckets += 1;
|
||
|
||
! } else if ((*the_bucket)->version != array->version) {
|
||
|
||
/* Perform lazy copy. */
|
||
struct sbucket* old_bucket = *the_bucket;
|
||
! *the_bucket = (struct sbucket*)__objc_xmalloc(sizeof(struct sbucket));
|
||
! memcpy( *the_bucket,old_bucket, sizeof(struct sbucket));
|
||
! (*the_bucket)->version = array->version;
|
||
nbuckets += 1;
|
||
|
||
}
|
||
--- 173,195 ----
|
||
|
||
/* 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;
|
||
|
||
}
|
||
***************
|
||
*** 151,192 ****
|
||
struct sarray*
|
||
sarray_new (int size, void* default_element)
|
||
{
|
||
#ifdef OBJC_SPARSE3
|
||
size_t num_indices = ((size-1)/(INDEX_CAPACITY))+1;
|
||
#else /* OBJC_SPARSE2 */
|
||
size_t num_indices = ((size-1)/BUCKET_SIZE)+1;
|
||
#endif
|
||
int counter;
|
||
- struct sarray* arr;
|
||
|
||
assert(size > 0);
|
||
|
||
/* Allocate core array */
|
||
! arr = (struct sarray*) __objc_xmalloc(sizeof(struct sarray));
|
||
! arr->version = 0;
|
||
! narrays += 1;
|
||
|
||
/* Initialize members */
|
||
#ifdef OBJC_SPARSE3
|
||
arr->capacity = num_indices*INDEX_CAPACITY;
|
||
! arr->indices = (struct sindex**)
|
||
! __objc_xmalloc(sizeof(struct sindex*)*num_indices);
|
||
! idxsize += num_indices;
|
||
|
||
! arr->empty_index = (struct sindex*) __objc_xmalloc(sizeof(struct sindex));
|
||
! arr->empty_index->version = 0;
|
||
nindices += 1;
|
||
|
||
#else /* OBJC_SPARSE2 */
|
||
arr->capacity = num_indices*BUCKET_SIZE;
|
||
! arr->buckets = (struct sbucket**)
|
||
! __objc_xmalloc(sizeof(struct sbucket*)*num_indices);
|
||
idxsize += num_indices;
|
||
|
||
#endif
|
||
|
||
! arr->empty_bucket = (struct sbucket*) __objc_xmalloc(sizeof(struct sbucket));
|
||
! arr->empty_bucket->version = 0;
|
||
nbuckets += 1;
|
||
|
||
arr->ref_count = 1;
|
||
--- 207,254 ----
|
||
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
|
||
int 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;
|
||
***************
|
||
*** 200,219 ****
|
||
arr->empty_index->buckets[counter] = arr->empty_bucket;
|
||
|
||
for (counter=0; counter<num_indices; counter++)
|
||
! arr->indices[counter] = arr->empty_index;
|
||
|
||
#else /* OBJC_SPARSE2 */
|
||
|
||
for (counter=0; counter<num_indices; counter++)
|
||
! arr->buckets[counter] = arr->empty_bucket;
|
||
|
||
#endif
|
||
!
|
||
return arr;
|
||
}
|
||
|
||
|
||
! /* Reallocate the sparse array to hold `newsize' entries */
|
||
|
||
void
|
||
sarray_realloc(struct sarray* array, int newsize)
|
||
--- 262,289 ----
|
||
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)
|
||
***************
|
||
*** 223,233 ****
|
||
--- 293,309 ----
|
||
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
|
||
|
||
int counter;
|
||
***************
|
||
*** 235,321 ****
|
||
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... */
|
||
|
||
! if(rounded_size < array->capacity)
|
||
{
|
||
- /* update capacity */
|
||
- array->capacity = rounded_size;
|
||
|
||
- /* free buckets above new_max_index */
|
||
- for(counter = old_max_index; counter > new_max_index; counter-- ) {
|
||
#ifdef OBJC_SPARSE3
|
||
! struct sindex* idx = array->indices[counter];
|
||
! if((idx != array->empty_index) && (idx->version == array->version)) {
|
||
! int c2;
|
||
! for(c2=0; c2<INDEX_SIZE; c2++) {
|
||
! struct sbucket* bkt = idx->buckets[c2];
|
||
! if((bkt != array->empty_bucket) && (bkt->version == array->version))
|
||
! {
|
||
! free(bkt);
|
||
! nbuckets -= 1;
|
||
! }
|
||
! }
|
||
! free(idx);
|
||
! nindices -= 1;
|
||
! }
|
||
#else /* OBJC_SPARSE2 */
|
||
! struct sbucket* bkt = array->buckets[counter];
|
||
! if ((bkt != array->empty_bucket) && (bkt->version == array->version))
|
||
! {
|
||
! free(bkt);
|
||
! nbuckets -= 1;
|
||
! }
|
||
#endif
|
||
! }
|
||
!
|
||
! #ifdef OBJC_SPARSE3
|
||
! /* realloc to free the space above new_max_index */
|
||
! array->indices = (struct sindex**)
|
||
! __objc_xrealloc(array->indices,
|
||
! (new_max_index+1)*sizeof(struct sindex*));
|
||
! #else /* OBJC_SPARSE2 */
|
||
! array->buckets = (struct sbucket**)
|
||
! __objc_xrealloc(array->buckets,
|
||
! (new_max_index+1)*sizeof(struct sbucket*));
|
||
! #endif
|
||
! idxsize -= (old_max_index-new_max_index);
|
||
!
|
||
! return;
|
||
! }
|
||
!
|
||
! /* We are asked to extend the array -- reallocate the bucket table, */
|
||
! /* and insert empty_bucket in newly allocated places. */
|
||
! if(rounded_size > array->capacity)
|
||
! {
|
||
/* update capacity */
|
||
array->capacity = rounded_size;
|
||
|
||
#ifdef OBJC_SPARSE3
|
||
! /* realloc to make room in table above old_max_index */
|
||
! array->indices = (struct sindex**)
|
||
! __objc_xrealloc(array->indices,
|
||
! (new_max_index+1)*sizeof(struct sindex*));
|
||
|
||
/* reset entries above old_max_index to empty_bucket */
|
||
for(counter = old_max_index+1; counter <= new_max_index; counter++)
|
||
! array->indices[counter] = array->empty_index;
|
||
!
|
||
#else /* OBJC_SPARSE2 */
|
||
-
|
||
- /* realloc to make room in table above old_max_index */
|
||
- array->buckets = (struct sbucket**)
|
||
- __objc_xrealloc(array->buckets,
|
||
- (new_max_index+1)*sizeof(struct sbucket*));
|
||
-
|
||
/* reset entries above old_max_index to empty_bucket */
|
||
for(counter = old_max_index+1; counter <= new_max_index; counter++)
|
||
! array->buckets[counter] = array->empty_bucket;
|
||
|
||
#endif
|
||
idxsize += (new_max_index-old_max_index);
|
||
return;
|
||
}
|
||
--- 311,382 ----
|
||
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;
|
||
}
|
||
***************
|
||
*** 326,335 ****
|
||
--- 387,399 ----
|
||
|
||
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
|
||
int counter = 0;
|
||
|
||
***************
|
||
*** 338,368 ****
|
||
if(--(array->ref_count) != 0) /* There exists copies of me */
|
||
return;
|
||
|
||
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 = array->indices[counter];
|
||
! if((idx != array->empty_index) && (idx->version == array->version)) {
|
||
int c2;
|
||
for(c2=0; c2<INDEX_SIZE; c2++) {
|
||
struct sbucket* bkt = idx->buckets[c2];
|
||
! if((bkt != array->empty_bucket) && (bkt->version == array->version))
|
||
{
|
||
! free(bkt);
|
||
nbuckets -= 1;
|
||
}
|
||
}
|
||
! free(idx);
|
||
nindices -= 1;
|
||
}
|
||
#else /* OBJC_SPARSE2 */
|
||
struct sbucket* bkt = array->buckets[counter];
|
||
! if ((bkt != array->empty_bucket) && (bkt->version == array->version))
|
||
{
|
||
! free(bkt);
|
||
nbuckets -= 1;
|
||
}
|
||
#endif
|
||
--- 402,441 ----
|
||
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
|
||
***************
|
||
*** 370,402 ****
|
||
|
||
#ifdef OBJC_SPARSE3
|
||
/* free empty_index */
|
||
! if(array->empty_index->version == array->version) {
|
||
! free(array->empty_index);
|
||
nindices -= 1;
|
||
}
|
||
#endif
|
||
|
||
/* free empty_bucket */
|
||
! if(array->empty_bucket->version == array->version) {
|
||
! free(array->empty_bucket);
|
||
nbuckets -= 1;
|
||
}
|
||
|
||
#ifdef OBJC_SPARSE3
|
||
/* free bucket table */
|
||
! free(array->indices);
|
||
! idxsize -= (old_max_index+1);
|
||
|
||
#else
|
||
/* free bucket table */
|
||
! free(array->buckets);
|
||
! idxsize -= (old_max_index+1);
|
||
|
||
#endif
|
||
!
|
||
/* free array */
|
||
! free(array);
|
||
! narrays -= 1;
|
||
}
|
||
|
||
/* This is a lazy copy. Only the core of the structure is actually */
|
||
--- 443,474 ----
|
||
|
||
#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
|
||
!
|
||
/* free array */
|
||
! sarray_free_garbage(array);
|
||
}
|
||
|
||
/* This is a lazy copy. Only the core of the structure is actually */
|
||
***************
|
||
*** 405,441 ****
|
||
struct sarray*
|
||
sarray_lazy_copy(struct sarray* oarr)
|
||
{
|
||
#ifdef OBJC_SPARSE3
|
||
size_t num_indices = ((oarr->capacity-1)/INDEX_CAPACITY)+1;
|
||
#else /* OBJC_SPARSE2 */
|
||
size_t num_indices = ((oarr->capacity-1)/BUCKET_SIZE)+1;
|
||
#endif
|
||
- struct sarray* arr;
|
||
|
||
/* Allocate core array */
|
||
! arr = (struct sarray*) __objc_xmalloc(sizeof(struct sarray));
|
||
! memcpy( arr,oarr, sizeof(struct sarray));
|
||
! arr->version = oarr->version + 1;
|
||
! arr->is_copy_of = oarr;
|
||
! oarr->ref_count += 1;
|
||
arr->ref_count = 1;
|
||
|
||
#ifdef OBJC_SPARSE3
|
||
/* Copy bucket table */
|
||
! arr->indices = (struct sindex**)
|
||
! __objc_xmalloc(sizeof(struct sindex*)*num_indices);
|
||
! memcpy( arr->indices,oarr->indices,
|
||
sizeof(struct sindex*)*num_indices);
|
||
#else
|
||
/* Copy bucket table */
|
||
! arr->buckets = (struct sbucket**)
|
||
! __objc_xmalloc(sizeof(struct sbucket*)*num_indices);
|
||
! memcpy( arr->buckets,oarr->buckets,
|
||
sizeof(struct sbucket*)*num_indices);
|
||
#endif
|
||
|
||
idxsize += num_indices;
|
||
narrays += 1;
|
||
!
|
||
return arr;
|
||
}
|
||
--- 477,522 ----
|
||
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;
|
||
}
|
||
diff -rcP gcc-2.7.2.1/objc/sarray.h gcc-2.7.2.1-objc-960906/objc/sarray.h
|
||
*** gcc-2.7.2.1/objc/sarray.h Fri Sep 6 11:29:01 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/sarray.h Fri Sep 6 10:33:34 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* Sparse Arrays for Objective C dispatch tables
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
|
||
Author: Kresten Krab Thorup
|
||
|
||
--- 1,5 ----
|
||
/* Sparse Arrays for Objective C dispatch tables
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
|
||
Author: Kresten Krab Thorup
|
||
|
||
***************
|
||
*** 42,47 ****
|
||
--- 42,49 ----
|
||
|
||
#include <stddef.h>
|
||
|
||
+ #include "objc/thr.h"
|
||
+
|
||
extern int nbuckets; /* for stats */
|
||
extern int nindices;
|
||
extern int narrays;
|
||
***************
|
||
*** 108,126 ****
|
||
|
||
#endif /* not PRECOMPUTE_SELECTORS */
|
||
|
||
! void * __objc_xrealloc (void *optr, size_t size);
|
||
! void * __objc_xmalloc (size_t size);
|
||
|
||
struct sbucket {
|
||
void* elems[BUCKET_SIZE]; /* elements stored in array */
|
||
! short version; /* used for copy-on-write */
|
||
};
|
||
|
||
#ifdef OBJC_SPARSE3
|
||
|
||
struct sindex {
|
||
struct sbucket* buckets[INDEX_SIZE];
|
||
! short version;
|
||
};
|
||
|
||
#endif /* OBJC_SPARSE3 */
|
||
--- 110,130 ----
|
||
|
||
#endif /* not PRECOMPUTE_SELECTORS */
|
||
|
||
! union sversion {
|
||
! int version;
|
||
! void *next_free;
|
||
! };
|
||
|
||
struct sbucket {
|
||
void* elems[BUCKET_SIZE]; /* elements stored in array */
|
||
! union sversion version; /* used for copy-on-write */
|
||
};
|
||
|
||
#ifdef OBJC_SPARSE3
|
||
|
||
struct sindex {
|
||
struct sbucket* buckets[INDEX_SIZE];
|
||
! union sversion version; /* used for copy-on-write */
|
||
};
|
||
|
||
#endif /* OBJC_SPARSE3 */
|
||
***************
|
||
*** 133,139 ****
|
||
struct sbucket** buckets;
|
||
#endif /* OBJC_SPARSE2 */
|
||
struct sbucket* empty_bucket;
|
||
! short version;
|
||
short ref_count;
|
||
struct sarray* is_copy_of;
|
||
size_t capacity;
|
||
--- 137,143 ----
|
||
struct sbucket** buckets;
|
||
#endif /* OBJC_SPARSE2 */
|
||
struct sbucket* empty_bucket;
|
||
! union sversion version; /* used for copy-on-write */
|
||
short ref_count;
|
||
struct sarray* is_copy_of;
|
||
size_t capacity;
|
||
***************
|
||
*** 142,151 ****
|
||
struct sarray* sarray_new(int, void* default_element);
|
||
void sarray_free(struct sarray*);
|
||
struct sarray* sarray_lazy_copy(struct sarray*);
|
||
- struct sarray* sarray_hard_copy(struct sarray*); /* ... like the name? */
|
||
void sarray_realloc(struct sarray*, int new_size);
|
||
void sarray_at_put(struct sarray*, sidx index, void* elem);
|
||
void sarray_at_put_safe(struct sarray*, sidx index, void* elem);
|
||
|
||
|
||
#ifdef PRECOMPUTE_SELECTORS
|
||
--- 146,157 ----
|
||
struct sarray* sarray_new(int, void* default_element);
|
||
void sarray_free(struct sarray*);
|
||
struct sarray* sarray_lazy_copy(struct sarray*);
|
||
void sarray_realloc(struct sarray*, int new_size);
|
||
void sarray_at_put(struct sarray*, sidx index, void* elem);
|
||
void sarray_at_put_safe(struct sarray*, sidx index, void* elem);
|
||
+
|
||
+ struct sarray* sarray_hard_copy(struct sarray*); /* ... like the name? */
|
||
+ void sarray_remove_garbage(void);
|
||
|
||
|
||
#ifdef PRECOMPUTE_SELECTORS
|
||
diff -rcP gcc-2.7.2.1/objc/selector.c gcc-2.7.2.1-objc-960906/objc/selector.c
|
||
*** gcc-2.7.2.1/objc/selector.c Fri Sep 6 11:29:02 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/selector.c Fri Sep 6 10:33:34 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective C Runtime selector related functions
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
--- 1,5 ----
|
||
/* GNU Objective C Runtime selector related functions
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
***************
|
||
*** 31,44 ****
|
||
#define SELECTOR_HASH_SIZE 128
|
||
|
||
/* Tables mapping selector names to uid and opposite */
|
||
! static struct sarray* __objc_selector_array = 0; /* uid -> sel */
|
||
! static struct sarray* __objc_selector_names = 0; /* uid -> name */
|
||
! static cache_ptr __objc_selector_hash = 0; /* name -> uid */
|
||
|
||
static void register_selectors_from_list(MethodList_t);
|
||
|
||
/* Number of selectors stored in each of the above tables */
|
||
! int __objc_selector_max_index = 0;
|
||
|
||
void __objc_init_selector_tables()
|
||
{
|
||
--- 31,44 ----
|
||
#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 */
|
||
! int __objc_selector_max_index = 0; /* !T:MUTEX */
|
||
|
||
void __objc_init_selector_tables()
|
||
{
|
||
***************
|
||
*** 88,93 ****
|
||
--- 88,153 ----
|
||
}
|
||
|
||
|
||
+ /* 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 for this method list */
|
||
+ for (i = 0; i < method_list->method_count; i++)
|
||
+ if (!search_for_method_in_list
|
||
+ (class_method_list,
|
||
+ method_list->method_list[i].method_name))
|
||
+ {
|
||
+ /* This instance method isn't a class method.
|
||
+ Add it into the new_list. */
|
||
+ *curr_method = method_list->method_list[i];
|
||
+
|
||
+ /* 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;
|
||
+ }
|
||
+ }
|
||
+
|
||
+
|
||
/* Returns YES iff t1 and t2 have same method types, but we ignore
|
||
the argframe layout */
|
||
BOOL
|
||
***************
|
||
*** 122,130 ****
|
||
struct objc_list *l;
|
||
sidx i;
|
||
|
||
i = (sidx) hash_value_for_key (__objc_selector_hash, name);
|
||
if (i == 0)
|
||
! return 0;
|
||
|
||
for (l = (struct objc_list*)sarray_get (__objc_selector_array, i);
|
||
l; l = l->tail)
|
||
--- 182,195 ----
|
||
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 (__objc_selector_array, i);
|
||
l; l = l->tail)
|
||
***************
|
||
*** 134,148 ****
|
||
--- 199,216 ----
|
||
{
|
||
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;
|
||
}
|
||
|
||
***************
|
||
*** 154,171 ****
|
||
sidx i;
|
||
SEL s;
|
||
|
||
i = (sidx) hash_value_for_key (__objc_selector_hash, name);
|
||
if (i == 0)
|
||
! return 0;
|
||
|
||
for (l = (struct objc_list*)sarray_get (__objc_selector_array, i);
|
||
l; l = l->tail)
|
||
{
|
||
s = (SEL) l->head;
|
||
if (s->sel_types)
|
||
! return s;
|
||
}
|
||
|
||
return s;
|
||
}
|
||
|
||
--- 222,248 ----
|
||
sidx i;
|
||
SEL s;
|
||
|
||
+ 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 (__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;
|
||
}
|
||
|
||
***************
|
||
*** 176,186 ****
|
||
struct objc_list *l;
|
||
sidx i;
|
||
|
||
i = (sidx) hash_value_for_key (__objc_selector_hash, name);
|
||
if (soffset_decode (i) == 0)
|
||
! return 0;
|
||
|
||
l = (struct objc_list*)sarray_get (__objc_selector_array, i);
|
||
if (l == 0)
|
||
return 0;
|
||
|
||
--- 253,270 ----
|
||
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 (__objc_selector_array, i);
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
if (l == 0)
|
||
return 0;
|
||
|
||
***************
|
||
*** 199,209 ****
|
||
const char*
|
||
sel_get_name (SEL selector)
|
||
{
|
||
if ((soffset_decode((sidx)selector->sel_id) > 0)
|
||
&& (soffset_decode((sidx)selector->sel_id) <= __objc_selector_max_index))
|
||
! return sarray_get (__objc_selector_names, (sidx) selector->sel_id);
|
||
else
|
||
! return 0;
|
||
}
|
||
|
||
BOOL
|
||
--- 283,298 ----
|
||
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 (__objc_selector_names, (sidx) selector->sel_id);
|
||
else
|
||
! ret = 0;
|
||
! objc_mutex_unlock(__objc_runtime_mutex);
|
||
! return ret;
|
||
}
|
||
|
||
BOOL
|
||
***************
|
||
*** 227,236 ****
|
||
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). */
|
||
SEL
|
||
__sel_register_typed_name (const char *name, const char *types,
|
||
! struct objc_selector *orig)
|
||
{
|
||
struct objc_selector* j;
|
||
sidx i;
|
||
--- 316,330 ----
|
||
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;
|
||
***************
|
||
*** 270,279 ****
|
||
if (orig)
|
||
j = orig;
|
||
else
|
||
! j = __objc_xmalloc (sizeof (struct objc_selector));
|
||
|
||
j->sel_id = (void*)i;
|
||
! j->sel_types = (const char*)types;
|
||
l = (struct objc_list*)sarray_get (__objc_selector_array, i);
|
||
}
|
||
else
|
||
--- 364,379 ----
|
||
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 (__objc_selector_array, i);
|
||
}
|
||
else
|
||
***************
|
||
*** 283,292 ****
|
||
if (orig)
|
||
j = orig;
|
||
else
|
||
! j = __objc_xmalloc (sizeof (struct objc_selector));
|
||
|
||
j->sel_id = (void*)i;
|
||
! j->sel_types = (const char*)types;
|
||
l = 0;
|
||
}
|
||
|
||
--- 383,398 ----
|
||
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;
|
||
}
|
||
|
||
***************
|
||
*** 295,305 ****
|
||
|
||
{
|
||
int is_new = (l == 0);
|
||
l = list_cons ((void*)j, l);
|
||
! sarray_at_put_safe (__objc_selector_names, i, (void *) name);
|
||
sarray_at_put_safe (__objc_selector_array, i, (void *) l);
|
||
if (is_new)
|
||
! hash_add (&__objc_selector_hash, (void *) name, (void *) i);
|
||
}
|
||
|
||
sarray_realloc(__objc_uninstalled_dtable, __objc_selector_max_index+1);
|
||
--- 401,421 ----
|
||
|
||
{
|
||
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);
|
||
***************
|
||
*** 310,321 ****
|
||
SEL
|
||
sel_register_name (const char *name)
|
||
{
|
||
! return __sel_register_typed_name (name, 0, 0);
|
||
}
|
||
|
||
SEL
|
||
sel_register_typed_name (const char *name, const char *type)
|
||
{
|
||
! return __sel_register_typed_name (name, type, 0);
|
||
}
|
||
|
||
--- 426,453 ----
|
||
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;
|
||
}
|
||
|
||
diff -rcP gcc-2.7.2.1/objc/sendmsg.c gcc-2.7.2.1-objc-960906/objc/sendmsg.c
|
||
*** gcc-2.7.2.1/objc/sendmsg.c Fri Sep 6 11:29:02 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc/sendmsg.c Fri Sep 6 10:33:35 1996
|
||
***************
|
||
*** 1,5 ****
|
||
/* GNU Objective C Runtime message lookup
|
||
! Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
--- 1,5 ----
|
||
/* GNU Objective C Runtime message lookup
|
||
! Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc.
|
||
Contributed by Kresten Krab Thorup
|
||
|
||
This file is part of GNU CC.
|
||
***************
|
||
*** 33,46 ****
|
||
#define gen_rtx(args...) 1
|
||
#define rtx int
|
||
|
||
! #if 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;
|
||
|
||
/* Send +initialize to class */
|
||
static void __objc_send_initialize(Class);
|
||
--- 33,46 ----
|
||
#define gen_rtx(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 */
|
||
|
||
/* Send +initialize to class */
|
||
static void __objc_send_initialize(Class);
|
||
***************
|
||
*** 49,54 ****
|
||
--- 49,62 ----
|
||
|
||
/* 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
|
||
***************
|
||
*** 57,71 ****
|
||
static id
|
||
#endif
|
||
__objc_block_forward(id, SEL, ...);
|
||
static Method_t search_for_method_in_hierarchy (Class class, SEL sel);
|
||
! static Method_t search_for_method_in_list(MethodList_t list, SEL op);
|
||
id nil_method(id, SEL, ...);
|
||
|
||
! id
|
||
! nil_method(id receiver, SEL op, ...)
|
||
! {
|
||
! return receiver;
|
||
! }
|
||
|
||
/* Given a class and selector, return the selector's implementation. */
|
||
__inline__
|
||
--- 65,89 ----
|
||
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, ...);
|
||
|
||
! /* OBJC_MAX_STRUCT_BY_VALUE should be defined in the platform specific
|
||
! configuration file. Some platforms, i386 on NeXTSTEP for example,
|
||
! pass small structures as values on the stack versus through a
|
||
! hidden pointer as for larger structures. In order for forwarding
|
||
! to work properly, the ObjC runtime needs to know when the structure
|
||
! is being passed by value or not so it can perform the appropriate
|
||
! forwarding function. The value of OBJC_MAX_STRUCT_BY_VALUE should
|
||
! be the maximum number of bytes for the size of the structure for it
|
||
! to be passed as a value, so a value of 8 indicates that a structure
|
||
! of size 8 gets passed as a value while a structure of size 9 gets
|
||
! passed as a hidden pointer.
|
||
!
|
||
! Leave OBJC_MAX_STRUCT_BY_VALUE undefined for platforms that always pass
|
||
! structures as hidden pointers. */
|
||
|
||
/* Given a class and selector, return the selector's implementation. */
|
||
__inline__
|
||
***************
|
||
*** 76,89 ****
|
||
void* res = sarray_get (class->dtable, (size_t) sel->sel_id);
|
||
if(res == __objc_init_install_dtable)
|
||
{
|
||
__objc_install_dispatch_table_for_class (class);
|
||
res = sarray_get (class->dtable, (size_t) sel->sel_id);
|
||
}
|
||
if (res == 0)
|
||
{
|
||
const char *t = sel->sel_types;
|
||
! if (t && (*t == '[' || *t == '(' || *t == '{'))
|
||
res = (IMP)__objc_block_forward;
|
||
else
|
||
res = (IMP)__objc_word_forward;
|
||
}
|
||
--- 94,115 ----
|
||
void* res = sarray_get (class->dtable, (size_t) sel->sel_id);
|
||
if(res == __objc_init_install_dtable)
|
||
{
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
__objc_install_dispatch_table_for_class (class);
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
res = sarray_get (class->dtable, (size_t) sel->sel_id);
|
||
}
|
||
if (res == 0)
|
||
{
|
||
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
|
||
! )
|
||
res = (IMP)__objc_block_forward;
|
||
+ else if (t && (*t == 'f' || *t == 'd'))
|
||
+ res = (IMP)__objc_double_forward;
|
||
else
|
||
res = (IMP)__objc_word_forward;
|
||
}
|
||
***************
|
||
*** 96,102 ****
|
||
--- 122,130 ----
|
||
void* res = sarray_get (object->class_pointer->dtable, (size_t) sel->sel_id);
|
||
if(res == __objc_init_install_dtable)
|
||
{
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
__objc_install_dispatch_table_for_class (object->class_pointer);
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
res = sarray_get (object->class_pointer->dtable, (size_t) sel->sel_id);
|
||
}
|
||
return (res != 0);
|
||
***************
|
||
*** 116,123 ****
|
||
if (result == 0)
|
||
{
|
||
const char *t = op->sel_types;
|
||
! if (t && (*t == '[' || *t == '(' || *t == '{'))
|
||
result = (IMP)__objc_block_forward;
|
||
else
|
||
result = (IMP)__objc_word_forward;
|
||
}
|
||
--- 144,157 ----
|
||
if (result == 0)
|
||
{
|
||
const char *t = op->sel_types;
|
||
! if (t && (*t == '[' || *t == '(' || *t == '{')
|
||
! #ifdef OBJC_MAX_STRUCT_BY_VALUE
|
||
! && (objc_sizeof_type(t) >= OBJC_MAX_STRUCT_BY_VALUE)
|
||
! #endif
|
||
! )
|
||
result = (IMP)__objc_block_forward;
|
||
+ else if (t && (*t == 'f' || *t == 'd'))
|
||
+ result = (IMP)__objc_double_forward;
|
||
else
|
||
result = (IMP)__objc_word_forward;
|
||
}
|
||
***************
|
||
*** 172,177 ****
|
||
--- 206,213 ----
|
||
if(receiver->class_pointer->dtable != __objc_uninstalled_dtable)
|
||
goto already_initialized;
|
||
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
if(CLS_ISCLASS(receiver->class_pointer))
|
||
{
|
||
/* receiver is an ordinary object */
|
||
***************
|
||
*** 198,203 ****
|
||
--- 234,240 ----
|
||
else
|
||
CLS_SETINITIALIZED((Class)receiver);
|
||
}
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
|
||
already_initialized:
|
||
|
||
***************
|
||
*** 269,274 ****
|
||
--- 306,312 ----
|
||
}
|
||
}
|
||
|
||
+ /* Assumes that __objc_runtime_mutex is locked down. */
|
||
static void
|
||
__objc_install_dispatch_table_for_class (Class class)
|
||
{
|
||
***************
|
||
*** 289,295 ****
|
||
--- 327,335 ----
|
||
/* 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);
|
||
***************
|
||
*** 311,335 ****
|
||
void __objc_update_dispatch_table_for_class (Class class)
|
||
{
|
||
Class next;
|
||
|
||
/* not yet installed -- skip it */
|
||
if (class->dtable == __objc_uninstalled_dtable)
|
||
return;
|
||
|
||
! sarray_free (class->dtable); /* release memory */
|
||
__objc_install_premature_dtable (class); /* someone might require it... */
|
||
! __objc_install_dispatch_table_for_class (class); /* could have been lazy... */
|
||
|
||
if (class->subclass_list) /* Traverse subclasses */
|
||
for (next = class->subclass_list; next; next = next->sibling_class)
|
||
__objc_update_dispatch_table_for_class (next);
|
||
|
||
}
|
||
|
||
|
||
/* 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 issued.
|
||
|
||
This one is only called for categories. Class objects have their
|
||
methods installed right away, and their selectors are made into
|
||
--- 351,382 ----
|
||
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
|
||
***************
|
||
*** 338,344 ****
|
||
class_add_method_list (Class class, MethodList_t list)
|
||
{
|
||
int i;
|
||
! static SEL initialize_sel = 0;
|
||
if (!initialize_sel)
|
||
initialize_sel = sel_register_name ("initialize");
|
||
|
||
--- 385,392 ----
|
||
class_add_method_list (Class class, MethodList_t list)
|
||
{
|
||
int i;
|
||
! static SEL initialize_sel = 0; /* !T:SAFE2 */
|
||
!
|
||
if (!initialize_sel)
|
||
initialize_sel = sel_register_name ("initialize");
|
||
|
||
***************
|
||
*** 414,420 ****
|
||
/* 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. */
|
||
! static Method_t
|
||
search_for_method_in_list (MethodList_t list, SEL op)
|
||
{
|
||
MethodList_t method_list = list;
|
||
--- 462,468 ----
|
||
/* 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;
|
||
***************
|
||
*** 447,452 ****
|
||
--- 495,501 ----
|
||
|
||
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, ...)
|
||
{
|
||
***************
|
||
*** 460,465 ****
|
||
--- 509,529 ----
|
||
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
|
||
***************
|
||
*** 482,488 ****
|
||
__objc_forward (id object, SEL sel, arglist_t args)
|
||
{
|
||
IMP imp;
|
||
! static SEL frwd_sel = 0;
|
||
SEL err_sel;
|
||
|
||
/* first try if the object understands forward:: */
|
||
--- 546,552 ----
|
||
__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:: */
|
||
***************
|
||
*** 526,539 ****
|
||
|
||
/* The object doesn't respond to doesNotRecognize: or error:; Therefore,
|
||
a default action is taken. */
|
||
! fprintf (stderr, "fatal: %s\n", msg);
|
||
! abort ();
|
||
}
|
||
}
|
||
|
||
void __objc_print_dtable_stats()
|
||
{
|
||
int total = 0;
|
||
printf("memory usage: (%s)\n",
|
||
#ifdef OBJC_SPARSE2
|
||
"2-level sparse arrays"
|
||
--- 590,605 ----
|
||
|
||
/* The object doesn't respond to doesNotRecognize: or error:; Therefore,
|
||
a default action is taken. */
|
||
! objc_error (object, OBJC_ERR_UNIMPLEMENTED, "%s\n", msg);
|
||
}
|
||
}
|
||
|
||
void __objc_print_dtable_stats()
|
||
{
|
||
int total = 0;
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
printf("memory usage: (%s)\n",
|
||
#ifdef OBJC_SPARSE2
|
||
"2-level sparse arrays"
|
||
***************
|
||
*** 542,550 ****
|
||
#endif
|
||
);
|
||
|
||
! printf("arrays: %d = %ld bytes\n", narrays, (int)narrays*sizeof(struct sarray));
|
||
total += narrays*sizeof(struct sarray);
|
||
! printf("buckets: %d = %ld bytes\n", nbuckets, (int)nbuckets*sizeof(struct sbucket));
|
||
total += nbuckets*sizeof(struct sbucket);
|
||
|
||
printf("idxtables: %d = %ld bytes\n", idxsize, (int)idxsize*sizeof(void*));
|
||
--- 608,618 ----
|
||
#endif
|
||
);
|
||
|
||
! printf("arrays: %d = %ld bytes\n", narrays,
|
||
! (int)narrays*sizeof(struct sarray));
|
||
total += narrays*sizeof(struct sarray);
|
||
! printf("buckets: %d = %ld bytes\n", nbuckets,
|
||
! (int)nbuckets*sizeof(struct sbucket));
|
||
total += nbuckets*sizeof(struct sbucket);
|
||
|
||
printf("idxtables: %d = %ld bytes\n", idxsize, (int)idxsize*sizeof(void*));
|
||
***************
|
||
*** 552,558 ****
|
||
printf("-----------------------------------\n");
|
||
printf("total: %d bytes\n", total);
|
||
printf("===================================\n");
|
||
- }
|
||
-
|
||
|
||
|
||
--- 620,633 ----
|
||
printf("-----------------------------------\n");
|
||
printf("total: %d bytes\n", total);
|
||
printf("===================================\n");
|
||
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+ }
|
||
|
||
+ /* Returns the dispatch table */
|
||
+ __inline__
|
||
+ struct sarray*
|
||
+ objc_get_uninstalled_dtable()
|
||
+ {
|
||
+ return __objc_uninstalled_dtable;
|
||
+ }
|
||
diff -rcP gcc-2.7.2.1/objc/thr-decosf1.c gcc-2.7.2.1-objc-960906/objc/thr-decosf1.c
|
||
*** gcc-2.7.2.1/objc/thr-decosf1.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-decosf1.c Fri Sep 6 10:33:35 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,326 ----
|
||
+ /* GNU Objective C Runtime Thread Interface
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+ Contributed by Galen C. Hunt (gchunt@cs.rochester.edu)
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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
|
||
+ 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 <pthread.h>
|
||
+ #include <objc/thr.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ pthread_mutex_t lock; /* pthread mutex. */
|
||
+ };
|
||
+
|
||
+ /*****************************************************************************
|
||
+ * Static variables.
|
||
+ */
|
||
+ static pthread_key_t __objc_thread_data_key; /* Data key for thread data.*/
|
||
+
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ printf("__objc_init_thread_system\n");
|
||
+
|
||
+ if (pthread_keycreate(&__objc_thread_data_key, NULL) == 0)
|
||
+ return 0; /* Yes, return success. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ int
|
||
+ __objc_fini_thread_system(void)
|
||
+ {
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return NULL if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ objc_thread_t thread_id = NULL; /* Detached thread id. */
|
||
+ pthread_t new_thread_handle; /* DCE thread handle. */
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
+ 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. */
|
||
+ __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)
|
||
+ {
|
||
+ 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;
|
||
+ }
|
||
+
|
||
+ if (pthread_setprio(pthread_self(), sys_priority) >= 0)
|
||
+ return 0; /* Changed priority. End. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Return the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_get_priority(void)
|
||
+ {
|
||
+ int sys_priority; /* DCE thread 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;
|
||
+ }
|
||
+ return -1; /* Couldn't 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)
|
||
+ {
|
||
+ pthread_yield(); /* Yield to equal thread. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ __objc_runtime_threads_alive--;
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ pthread_exit(&__objc_thread_exit_status); /* Terminate thread. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns an integer value which uniquely describes a thread. Must not be
|
||
+ * -1 which is reserved as a marker for "no thread".
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_id(void)
|
||
+ {
|
||
+ pthread_t self = pthread_self();
|
||
+
|
||
+ return (objc_thread_t) pthread_getuniqe_np (&self);
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ if (pthread_setspecific(__objc_thread_data_key, (void *)value) == 0)
|
||
+ return 0; /* Return thread data. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ void * value = NULL;
|
||
+
|
||
+ if (pthread_getspecific(__objc_thread_data_key, (void *)&value) == 0)
|
||
+ return value; /* Return thread data. */
|
||
+
|
||
+ return NULL;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Allocate a mutex. Return the mutex pointer if successful or NULL if
|
||
+ * the allocation fails for any reason.
|
||
+ */
|
||
+ objc_mutex_t
|
||
+ objc_mutex_allocate(void)
|
||
+ {
|
||
+ objc_mutex_t mutex;
|
||
+ int err = 0;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ err = pthread_mutex_init(&mutex->lock, pthread_mutexattr_default);
|
||
+
|
||
+ if (err != 0) { /* System init failed? */
|
||
+ objc_free(mutex); /* Yes, free local memory. */
|
||
+ return NULL; /* Abort. */
|
||
+ }
|
||
+ mutex->owner = (objc_thread_t) -1; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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 deallotcate 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ pthread_mutex_unlock(&mutex->lock); /* Must unlock system mutex.*/
|
||
+ pthread_mutex_destroy(&mutex->lock); /* Free system mutex. */
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (pthread_mutex_lock(&mutex->lock) != 0) /* Lock DCE system mutex. */
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (pthread_mutex_trylock(&mutex->lock) != 1) /* Lock DCE system mutex. */
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = (objc_thread_t) -1; /* Set owner to "no thread".*/
|
||
+
|
||
+ if (pthread_mutex_unlock(&mutex->lock) != 0) /* Unlock system mutex. */
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
+
|
||
+ /* End of File */
|
||
diff -rcP gcc-2.7.2.1/objc/thr-irix.c gcc-2.7.2.1-objc-960906/objc/thr-irix.c
|
||
*** gcc-2.7.2.1/objc/thr-irix.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-irix.c Fri Sep 6 10:33:35 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,314 ----
|
||
+ /* GNU Objective C Runtime Thread Interface - SGI IRIX Implementation
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+ Contributed by Galen C. Hunt (gchunt@cs.rochester.edu)
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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
|
||
+ 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 <stdlib.h>
|
||
+ #include <sys/types.h>
|
||
+ #include <sys/sysmp.h>
|
||
+ #include <sys/prctl.h>
|
||
+ #include <ulocks.h>
|
||
+ #include <objc/thr.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ ulock_t lock; /* Irix lock. */
|
||
+ };
|
||
+
|
||
+ /*****************************************************************************
|
||
+ * Static variables.
|
||
+ */
|
||
+ static void * __objc_shared_arena_handle = NULL; /* Storage arena locks. */
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ char arena_name[64]; /* Name of IRIX arena. */
|
||
+
|
||
+ DEBUG_PRINTF("__objc_init_thread_system\n");
|
||
+ sprintf(arena_name, "/usr/tmp/objc_%05u", (unsigned)getpid());
|
||
+ usconfig(CONF_INITUSERS, 256); /* Up to 256 threads. */
|
||
+ usconfig(CONF_ARENATYPE, US_SHAREDONLY); /* Arena only for threads. */
|
||
+ if (!(__objc_shared_arena_handle = usinit(arena_name))) /* Init Failed? */
|
||
+ return -1; /* Yes, return error code. */
|
||
+
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ int
|
||
+ __objc_fini_thread_system(void)
|
||
+ {
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return NULL if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ objc_thread_t thread_id = NULL;
|
||
+ int sys_id;
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ if ((sys_id = sproc((void *)func, PR_SALL, arg)) >= 0) {
|
||
+ thread_id = (objc_thread_t)sys_id;
|
||
+ __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)
|
||
+ {
|
||
+ int sys_priority = 0;
|
||
+
|
||
+ switch (priority) {
|
||
+ case OBJC_THREAD_INTERACTIVE_PRIORITY:
|
||
+ break;
|
||
+ default:
|
||
+ case OBJC_THREAD_BACKGROUND_PRIORITY:
|
||
+ break;
|
||
+ case OBJC_THREAD_LOW_PRIORITY:
|
||
+ break;
|
||
+ }
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Return the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_get_priority(void)
|
||
+ {
|
||
+ return -1; /* Couldn't 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)
|
||
+ {
|
||
+ sginap(0); /* Yield to equal process. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ __objc_runtime_threads_alive--;
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ exit(__objc_thread_exit_status); /* IRIX only has exit. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ return (objc_thread_t)get_pid(); /* Threads are processes. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ *((void **)&PRDA->usr_prda) = value; /* Set thread data ptr. */
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ return *((void **)&PRDA->usr_prda); /* Return thread data ptr. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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;
|
||
+ int err = 0;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ if (!(mutex->lock = usnewlock(__objc_shared_arena_handle)))
|
||
+ err = -1;
|
||
+
|
||
+ if (err != 0) { /* System init failed? */
|
||
+ objc_free(mutex); /* Yes, free local memory. */
|
||
+ return NULL; /* Abort. */
|
||
+ }
|
||
+ mutex->owner = NULL; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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 deallotcate 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ usfreelock(mutex->lock, __objc_shared_arena_handle); /* Free IRIX lock. */
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) { /* Already own lock? */
|
||
+ DEBUG_PRINTF("lock owned by: %d:%d\n", mutex->owner, mutex->depth);
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+ }
|
||
+
|
||
+ DEBUG_PRINTF("lock owned by: %d:%d (attempt by %d)\n",
|
||
+ mutex->owner, mutex->depth, thread_id);
|
||
+
|
||
+ if (ussetlock(mutex->lock) == 0) /* Did lock acquire fail? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (ustestlock(mutex->lock) == 0) /* Did lock acquire fail? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ DEBUG_PRINTF("unlock by: %d:%d\n", mutex->owner, mutex->depth - 1);
|
||
+
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = NULL; /* Set owner to "no thread".*/
|
||
+
|
||
+ usunsetlock(mutex->lock); /* Free lock. */
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
+
|
||
+ /* End of File */
|
||
diff -rcP gcc-2.7.2.1/objc/thr-mach.c gcc-2.7.2.1-objc-960906/objc/thr-mach.c
|
||
*** gcc-2.7.2.1/objc/thr-mach.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-mach.c Fri Sep 6 10:33:36 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,465 ----
|
||
+ /* GNU Objective C Runtime Thread Implementation
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+
|
||
+ Author: Galen C. Hunt (gchunt@cs.rochester.edu)
|
||
+ Modified for Mach threads by: Bill Bumgarner <bbum@friday.com>
|
||
+ Condition functions added by: Mircea Oancea <mircea@first.elcom.pub.ro>
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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 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 <mach/mach.h>
|
||
+ #include <mach/cthreads.h>
|
||
+ #include <objc/thr.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ struct mutex lock; /* cthread mutex */
|
||
+ };
|
||
+
|
||
+ struct objc_condition
|
||
+ {
|
||
+ struct condition condition; /* cthread condition */
|
||
+ };
|
||
+
|
||
+ /********
|
||
+ * 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
|
||
+ * priviledges. 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;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ DEBUG_PRINTF("__objc_init_thread_system\n");
|
||
+ return 0; /* Succeeded. */
|
||
+ }
|
||
+
|
||
+
|
||
+ int
|
||
+ __objc_fini_thread_system(void)
|
||
+ {
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return NULL if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ objc_thread_t thread_id = NULL; /* Detached thread id. */
|
||
+ cthread_t new_thread_handle; /* cthread handle. */
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
+ /* 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); /* fully detach thread */
|
||
+ __objc_runtime_threads_alive++; /* increment thread count */
|
||
+ }
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+ 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;
|
||
+
|
||
+ if (cthread_priority(cT, sys_priority, 0) == KERN_SUCCESS)
|
||
+ return 0; /* Changed priority. End. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Return the current thread's priority [well, whatever it is closest to].
|
||
+ */
|
||
+ 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; /* threasholds */
|
||
+
|
||
+ maxPriority = __mach_get_max_thread_priority(cT, &basePriority);
|
||
+
|
||
+ if(maxPriority == -1)
|
||
+ return -1;
|
||
+
|
||
+ if (basePriority > ( (maxPriority * 2) / 3))
|
||
+ return OBJC_THREAD_INTERACTIVE_PRIORITY; /* interactive priority
|
||
+ */
|
||
+ if (basePriority > ( maxPriority / 3))
|
||
+ return OBJC_THREAD_BACKGROUND_PRIORITY; /* background priority
|
||
+ */
|
||
+ return OBJC_THREAD_LOW_PRIORITY; /* everything else is low */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ cthread_yield(); /* Yield to equal thread. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ __objc_runtime_threads_alive--;
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ cthread_exit(&__objc_thread_exit_status); /* Terminate thread. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ cthread_t self = cthread_self();
|
||
+ return (objc_thread_t)self;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ cthread_set_data(cthread_self(), (any_t) value);
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ return (void *) cthread_data(cthread_self());
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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;
|
||
+ int err = 0;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ err = mutex_init(&(mutex->lock));
|
||
+
|
||
+ if (err != 0) { /* System init failed? */
|
||
+ objc_free(mutex); /* Yes, free local memory. */
|
||
+ return NULL; /* Abort. */
|
||
+ }
|
||
+ mutex->owner = (objc_thread_t) -1; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ mutex_unlock(&(mutex->lock)); /* Must unlock system mutex.*/
|
||
+ mutex_clear(&(mutex->lock)); /* Free system mutex. */
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ mutex_lock(&(mutex->lock)); /* Lock cthread mutex. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (mutex_try_lock(&(mutex->lock)) == 0) /* Lock cthread mutex. */
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = (objc_thread_t) -1; /* Set owner to "no thread".*/
|
||
+
|
||
+ mutex_unlock(&(mutex->lock)); /* unlock cthread mutex. */
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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;
|
||
+
|
||
+ if (!(condition = (objc_condition_t)objc_malloc(
|
||
+ sizeof(struct objc_condition))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ condition_init(&(condition->condition));
|
||
+
|
||
+ return condition; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ condition_broadcast(&(condition->condition));
|
||
+ condition_clear(&(condition->condition));
|
||
+ 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex || !condition) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Locked more than once ? */
|
||
+ return -1; /* YES, return error */
|
||
+ /* mutex will be unlocked */
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = (objc_thread_t) -1; /* Set owner to "no thread".*/
|
||
+
|
||
+ condition_wait(&(condition->condition),
|
||
+ &(mutex->lock)); /* unlock, wait ..., lock */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ mutex->depth = 1; /* Increment depth to end. */
|
||
+ return 0; /* Return success. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ if (!condition)
|
||
+ return -1;
|
||
+ condition_broadcast(&(condition->condition));
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ if (!condition)
|
||
+ return -1;
|
||
+ condition_signal(&(condition->condition));
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
diff -rcP gcc-2.7.2.1/objc/thr-os2.c gcc-2.7.2.1-objc-960906/objc/thr-os2.c
|
||
*** gcc-2.7.2.1/objc/thr-os2.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-os2.c Fri Sep 6 10:33:36 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,342 ----
|
||
+ /* GNU Objective C Runtime Thread Interface - OS/2 emx Implementation
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+
|
||
+ Author: Thomas Baier (baier@ci.tuwien.ac.at)
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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 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/thr.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ #define INCL_DOSSEMAPHORES
|
||
+ #define INCL_DOSPROCESS
|
||
+
|
||
+ /*
|
||
+ * conflicts with objc.h: SEL, BOOL, id
|
||
+ * solution: prefixing those with _OS2_ before including <os2.h>
|
||
+ */
|
||
+ #define SEL _OS2_SEL
|
||
+ #define BOOL _OS2_BOOL
|
||
+ #define id _OS2_id
|
||
+ #include <os2.h>
|
||
+ #undef id
|
||
+ #undef SEL
|
||
+ #undef BOOL
|
||
+
|
||
+ #include <stdlib.h>
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ HMTX handle; /* OS/2 mutex HANDLE. */
|
||
+ };
|
||
+
|
||
+ /*****************************************************************************
|
||
+ * Static variables.
|
||
+ */
|
||
+ /* none needed for OS/2 */
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ DEBUG_PRINTF("__objc_init_thread_system (os2-emx)\n");
|
||
+
|
||
+ /* no initialization of thread subsystem */
|
||
+ return 0; /* Yes, return success. */
|
||
+ }
|
||
+
|
||
+ int
|
||
+ __objc_fini_thread_system(void)
|
||
+ {
|
||
+ /* no termination code for thread subsystem */
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return NULL if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ int thread_id = 0; /* id of the newly created thread */
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
+ /* create a thread calling "func", args "arg", stack size 32768 bytes */
|
||
+ if ((thread_id = _beginthread (func,NULL,32768,arg)) < 0)
|
||
+ thread_id = 0;
|
||
+ else
|
||
+ __objc_runtime_threads_alive++;
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ 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_REGULSR
|
||
+ * 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;
|
||
+ }
|
||
+ if (!DosSetPriority (PRTYS_THREAD,sys_class,sys_priority,*_threadid))
|
||
+ return 0; /* Changed priority. End. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Return the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_get_priority(void)
|
||
+ {
|
||
+ PTIB ptib;
|
||
+ PPIB ppib;
|
||
+
|
||
+ DosGetInfoBlocks (&ptib,&ppib); /* get information about current thread */
|
||
+
|
||
+ 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; /* Couldn't 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)
|
||
+ {
|
||
+ DosSleep (0); /* Yield to equal thread. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ __objc_runtime_threads_alive--;
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ _endthread (); /* terminate the thread, NEVER use DosExit () */
|
||
+
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns an integer value which uniquely describes a thread. Must not be
|
||
+ * -1 which is reserved as a marker for "no thread".
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_id(void)
|
||
+ {
|
||
+ return (objc_thread_t) *_threadid; /* Return thread id. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ *_threadstore () = value;
|
||
+
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ return *_threadstore ();
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Allocate a mutex. Return the mutex pointer if successful or NULL if
|
||
+ * the allocation fails for any reason.
|
||
+ */
|
||
+ objc_mutex_t
|
||
+ objc_mutex_allocate(void)
|
||
+ {
|
||
+ objc_mutex_t mutex;
|
||
+ int err = 0;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ if (DosCreateMutexSem (NULL,&(mutex->handle),0L,0) > 0) {
|
||
+ objc_free(mutex);
|
||
+ return NULL;
|
||
+ }
|
||
+
|
||
+ mutex->owner = NULL; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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 deallotcate 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ DosCloseMutexSem (mutex->handle);
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (DosRequestMutexSem (mutex->handle,-1L) != 0)
|
||
+ return -1;
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+
|
||
+ return ++mutex->depth; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (DosRequestMutexSem (mutex->handle,0L) != 0)
|
||
+ return -1;
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return ++mutex->depth; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = NULL; /* Set owner to "no thread".*/
|
||
+
|
||
+ if (DosReleaseMutexSem(mutex->handle) != 0)
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
diff -rcP gcc-2.7.2.1/objc/thr-posix.c gcc-2.7.2.1-objc-960906/objc/thr-posix.c
|
||
*** gcc-2.7.2.1/objc/thr-posix.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-posix.c Fri Sep 6 10:33:36 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,323 ----
|
||
+ /* GNU Objective C Runtime Thread Interface for POSIX compliant threads
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+
|
||
+ Author: Galen C. Hunt (gchunt@cs.rochester.edu)
|
||
+ Modified for Linux & Pthreads: Kai-Uwe Sattler (kus@iti.cs.uni-magdeburg.de)
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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 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/thr.h>
|
||
+ #include "runtime.h"
|
||
+ #include <pthread.h>
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ pthread_mutex_t lock; /* pthread mutex. */
|
||
+ };
|
||
+
|
||
+ /*****************************************************************************
|
||
+ * Static variables.
|
||
+ */
|
||
+ static pthread_key_t __objc_thread_data_key; /* Data key for thread data.*/
|
||
+
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ if (pthread_key_create(&__objc_thread_data_key, NULL) == 0)
|
||
+ return 0; /* Yes, return success. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ int
|
||
+ __objc_fini_thread_system(void)
|
||
+ {
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return NULL if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ objc_thread_t thread_id = NULL; /* Detached thread id. */
|
||
+ pthread_t new_thread_handle; /* DCE thread handle. */
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
+ if (pthread_create(&new_thread_handle, NULL,
|
||
+ (void *)func, arg) == 0) {
|
||
+ thread_id = (objc_thread_t) new_thread_handle;
|
||
+ pthread_detach(new_thread_handle); /* Fully detach thread. */
|
||
+ __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)
|
||
+ {
|
||
+ #if 0 /* no get/set priority in Linux pthreads */
|
||
+
|
||
+ 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;
|
||
+ }
|
||
+
|
||
+ if (pthread_setprio(pthread_self(), sys_priority) >= 0)
|
||
+ return 0; /* Changed priority. End. */
|
||
+
|
||
+ #endif
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Return the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_get_priority(void)
|
||
+ {
|
||
+ #if 0 /* no get/set priority in Linux pthreads */
|
||
+ int sys_priority; /* DCE thread 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;
|
||
+ }
|
||
+ #endif
|
||
+ return -1; /* Couldn't 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)
|
||
+ {
|
||
+ pthread_yield(); /* Yield to equal thread. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ __objc_runtime_threads_alive--;
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ pthread_exit(&__objc_thread_exit_status); /* Terminate thread. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns an integer value which uniquely describes a thread. Must not be
|
||
+ * -1 which is reserved as a marker for "no thread".
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_id(void)
|
||
+ {
|
||
+ pthread_t self = pthread_self();
|
||
+
|
||
+ return (objc_thread_t) self; /* Return thread handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ if (pthread_setspecific(__objc_thread_data_key, (void *)value) == 0)
|
||
+ return 0; /* Return thread data. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ return pthread_getspecific(__objc_thread_data_key);
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Allocate a mutex. Return the mutex pointer if successful or NULL if
|
||
+ * the allocation fails for any reason.
|
||
+ */
|
||
+ objc_mutex_t
|
||
+ objc_mutex_allocate(void)
|
||
+ {
|
||
+ objc_mutex_t mutex;
|
||
+ int err = 0;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ err = pthread_mutex_init(&mutex->lock, NULL);
|
||
+
|
||
+ if (err != 0) { /* System init failed? */
|
||
+ objc_free(mutex); /* Yes, free local memory. */
|
||
+ return NULL; /* Abort. */
|
||
+ }
|
||
+ mutex->owner = NULL; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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 deallotcate 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ pthread_mutex_unlock(&mutex->lock); /* Must unlock system mutex.*/
|
||
+ pthread_mutex_destroy(&mutex->lock); /* Free system mutex. */
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (pthread_mutex_lock(&mutex->lock) != 0) /* Lock DCE system mutex. */
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (pthread_mutex_trylock(&mutex->lock) != 1) /* Lock DCE system mutex. */
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = NULL; /* Set owner to "no thread".*/
|
||
+
|
||
+ if (pthread_mutex_unlock(&mutex->lock) != 0) /* Unlock system mutex. */
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
diff -rcP gcc-2.7.2.1/objc/thr-pthreads.c gcc-2.7.2.1-objc-960906/objc/thr-pthreads.c
|
||
*** gcc-2.7.2.1/objc/thr-pthreads.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-pthreads.c Fri Sep 6 10:33:37 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,422 ----
|
||
+ /* GNU Objective C Runtime Thread Implementation
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+
|
||
+ This implementation is for the PCThreads package under Linux.
|
||
+
|
||
+ Author: Scott Christley <scottc@net-community.com>
|
||
+ Condition functions added by: Mircea Oancea <mircea@first.elcom.pub.ro>
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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 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 <pthreads/pthread.h>
|
||
+ #include <objc/thr.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ /* Key structure for maintiain thread specific storage */
|
||
+ static pthread_key_t _objc_thread_storage;
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ pthread_mutex_t mutex; /* PCThread mutex */
|
||
+ };
|
||
+
|
||
+ struct objc_condition
|
||
+ {
|
||
+ pthread_cond_t condition; /* cthread condition */
|
||
+ };
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ /* Initialize the thread storage key */
|
||
+ return pthread_key_create(&_objc_thread_storage, NULL);
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Finalize the threads subsystem. Returns 0 if successful, or -1 if not
|
||
+ */
|
||
+ int
|
||
+ __objc_fini_thread_system(void)
|
||
+ {
|
||
+ /* Destroy the thread storage key */
|
||
+ /* Not implemented yet */
|
||
+ /* return pthread_key_delete(&_objc_thread_storage); */
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return NULL if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ objc_thread_t thread_id;
|
||
+ pthread_t new_thread_handle;
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
+ if ( !(pthread_create(&new_thread_handle, NULL, (void *)func, arg)) )
|
||
+ {
|
||
+ thread_id = *(objc_thread_t *)&new_thread_handle;
|
||
+ __objc_runtime_threads_alive++;
|
||
+ }
|
||
+ else
|
||
+ thread_id = NULL;
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ return thread_id;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Set the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_priority(int priority)
|
||
+ {
|
||
+ /* Not implemented yet */
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Return the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_get_priority(void)
|
||
+ {
|
||
+ /* Not implemented yet */
|
||
+ return OBJC_THREAD_INTERACTIVE_PRIORITY; /* Highest 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)
|
||
+ {
|
||
+ pthread_yield(NULL);
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ __objc_runtime_threads_alive--;
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ pthread_exit(&__objc_thread_exit_status); /* Terminate thread. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ pthread_t self = pthread_self();
|
||
+
|
||
+ return *(objc_thread_t *)&self; /* Return thread handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ return pthread_setspecific(_objc_thread_storage, value);
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ void *value = NULL;
|
||
+
|
||
+ if ( !(pthread_getspecific(_objc_thread_storage, &value)) )
|
||
+ return value;
|
||
+
|
||
+ return NULL;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ /* Create PCThread mutex */
|
||
+ if ( pthread_mutex_init(&(mutex->mutex), NULL) )
|
||
+ {
|
||
+ /* Failed */
|
||
+ objc_free(mutex);
|
||
+ return NULL;
|
||
+ }
|
||
+
|
||
+ mutex->owner = NULL; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ /* Destroy PCThread mutex */
|
||
+ pthread_mutex_destroy(&(mutex->mutex));
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+ int status;
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ {
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+ }
|
||
+
|
||
+ /* Lock the PCThread mutex */
|
||
+ status = pthread_mutex_lock(&(mutex->mutex));
|
||
+ if (status)
|
||
+ {
|
||
+ return status; /* Failed */
|
||
+ }
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+ int status;
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ /* Lock the PCThread mutex */
|
||
+ status = pthread_mutex_trylock(&(mutex->mutex));
|
||
+ if (status)
|
||
+ return status; /* Failed */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+ int status;
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = NULL; /* Set owner to "no thread".*/
|
||
+
|
||
+ /* Unlock the PCThread mutex */
|
||
+ status = pthread_mutex_unlock(&(mutex->mutex));
|
||
+ if (status)
|
||
+ return status; /* Failed */
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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;
|
||
+
|
||
+ if (!(condition = (objc_condition_t)objc_malloc(
|
||
+ sizeof(struct objc_condition))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ if ( pthread_cond_init(&(condition->condition), NULL) ) {
|
||
+ objc_free(condition);
|
||
+ return NULL;
|
||
+ }
|
||
+
|
||
+ return condition; /* Return condition handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ pthread_cond_broadcast(&(condition->condition));
|
||
+ pthread_cond_destroy(&(condition->condition));
|
||
+ 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex || !condition) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Locked more than once ? */
|
||
+ return -1; /* YES, return error */
|
||
+ /* mutex will be unlocked */
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = (objc_thread_t) -1; /* Set owner to "no thread".*/
|
||
+
|
||
+ pthread_cond_wait(&(condition->condition),
|
||
+ &(mutex->mutex)); /* unlock, wait ..., lock */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ mutex->depth = 1; /* Increment depth to end. */
|
||
+ return 0; /* Return success. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ if (!condition)
|
||
+ return -1;
|
||
+ pthread_cond_broadcast(&(condition->condition));
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ if (!condition)
|
||
+ return -1;
|
||
+ pthread_cond_signal(&(condition->condition));
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /* End of File */
|
||
diff -rcP gcc-2.7.2.1/objc/thr-single.c gcc-2.7.2.1-objc-960906/objc/thr-single.c
|
||
*** gcc-2.7.2.1/objc/thr-single.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-single.c Fri Sep 6 10:33:37 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,240 ----
|
||
+ /* GNU Objective C Runtime Thread Implementation
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+ Contributed by Galen C. Hunt (gchunt@cs.rochester.edu)
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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
|
||
+ 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/thr.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ };
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ DEBUG_PRINTF("__objc_init_thread_system\n");
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return NULL if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ return NULL; /* We can't start threads. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Set the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_priority(int priority)
|
||
+ {
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Return the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_get_priority(void)
|
||
+ {
|
||
+ return OBJC_THREAD_INTERACTIVE_PRIORITY; /* Highest 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)
|
||
+ {
|
||
+ return;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ exit(__objc_thread_exit_status);
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ return (objc_thread_t)1; /* No thread support, use 1.*/
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+
|
||
+ static void *thread_local_storage = NULL;
|
||
+
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ thread_local_storage = value;
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ return thread_local_storage;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ mutex->owner = NULL; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = NULL; /* Set owner to "no thread".*/
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
+
|
||
+ /* End of File */
|
||
diff -rcP gcc-2.7.2.1/objc/thr-solaris.c gcc-2.7.2.1-objc-960906/objc/thr-solaris.c
|
||
*** gcc-2.7.2.1/objc/thr-solaris.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-solaris.c Fri Sep 6 10:33:37 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,431 ----
|
||
+ /* GNU Objective C Runtime Thread Interface
|
||
+ Copyright (C) 1996 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.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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
|
||
+ 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/thr.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ #include <thread.h>
|
||
+ #include <synch.h>
|
||
+ #include <errno.h>
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ mutex_t lock; /* System mutex. */
|
||
+ };
|
||
+
|
||
+ struct objc_condition
|
||
+ {
|
||
+ cond_t condition; /* solaris condition */
|
||
+ };
|
||
+
|
||
+ /*****************************************************************************
|
||
+ * Static variables.
|
||
+ */
|
||
+ static thread_key_t __objc_thread_data_key; /* Data key for thread data.*/
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ DEBUG_PRINTF("__objc_init_thread_system\n");
|
||
+
|
||
+ if (thr_keycreate(&__objc_thread_data_key, NULL) == 0)
|
||
+ return 0; /* Yes, return success. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ int
|
||
+ __objc_fini_thread_system(void)
|
||
+ {
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return -1 if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ objc_thread_t thread_id = NULL; /* Detached thread id. */
|
||
+ thread_t new_thread_id = 0; /* Solaris thread id type. */
|
||
+ int errn;
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
+ if (thr_create(NULL, 0, (void *)func, arg,
|
||
+ THR_DETACHED | THR_NEW_LWP,
|
||
+ &new_thread_id) == 0) { /* Created new thread? */
|
||
+ thread_id = (objc_thread_t)new_thread_id; /* Yes, remember its id. */
|
||
+ __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)
|
||
+ {
|
||
+ 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;
|
||
+ }
|
||
+
|
||
+ if (thr_setprio(thr_self(), sys_priority) == 0)
|
||
+ return 0; /* Changed priority. End. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Return the current thread's priority.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_get_priority(void)
|
||
+ {
|
||
+ int sys_priority; /* Solaris thread 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;
|
||
+ }
|
||
+
|
||
+ return -1; /* Couldn't 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)
|
||
+ {
|
||
+ thr_yield(); /* Yield to equal thread. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ __objc_runtime_threads_alive++;
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ thr_exit(&__objc_thread_exit_status); /* Terminate thread. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ return (objc_thread_t)thr_self();
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ if (thr_setspecific(__objc_thread_data_key, value) == 0)
|
||
+ return 0;
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ void * value = NULL;
|
||
+
|
||
+ if (thr_getspecific(__objc_thread_data_key, &value) == 0)
|
||
+ return value; /* Return thread data. */
|
||
+
|
||
+ return NULL;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Allocate a mutex. Return the mutex pointer if successful or NULL if
|
||
+ * the allocation fails for any reason.
|
||
+ */
|
||
+ objc_mutex_t
|
||
+ objc_mutex_allocate(void)
|
||
+ {
|
||
+ struct objc_mutex *mutex;
|
||
+ int err = 0;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ err = mutex_init(&mutex->lock, USYNC_THREAD, 0);
|
||
+
|
||
+ if (err != 0) { /* System init failed? */
|
||
+ objc_free(mutex); /* Yes, free local memory. */
|
||
+ return NULL; /* Abort. */
|
||
+ }
|
||
+ mutex->owner = NULL; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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 deallotcate 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ mutex_destroy(&mutex->lock); /* System deallocate. */
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (mutex_lock(&mutex->lock) != 0) /* Did lock acquire fail? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ if (mutex_trylock(&mutex->lock) != 0) /* Did lock acquire fail? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return mutex->depth = 1; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = NULL; /* Set owner to "no thread".*/
|
||
+
|
||
+ if (mutex_unlock(&mutex->lock) != 0) /* Did lock release fail? */
|
||
+ return -1; /* Yes, return error value. */
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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;
|
||
+
|
||
+ if (!(condition = (objc_condition_t)objc_malloc(
|
||
+ sizeof(struct objc_condition))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ cond_init(&(condition->condition), USYNC_THREAD, NULL);
|
||
+
|
||
+ return condition; /* Return new 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)
|
||
+ {
|
||
+ cond_broadcast(&(condition->condition)); /* Wakeup waiting threads */
|
||
+ cond_destroy(&(condition->condition)); /* Kill condition */
|
||
+ objc_free(condition); /* Release struct memory */
|
||
+ 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; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex || !condition) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Locked more than once ? */
|
||
+ return -1; /* YES, return error */
|
||
+ /* mutex will be unlocked */
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = (objc_thread_t) -1; /* Set owner to "no thread".*/
|
||
+
|
||
+ cond_wait(&(condition->condition),
|
||
+ &(mutex->lock)); /* unlock, wait ..., lock */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ mutex->depth = 1; /* Must be here ! */
|
||
+
|
||
+ return 0; /* Return success. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ if (!condition)
|
||
+ return -1;
|
||
+ cond_broadcast(&(condition->condition));
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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)
|
||
+ {
|
||
+ if (!condition)
|
||
+ return -1;
|
||
+ cond_signal(&(condition->condition));
|
||
+ return 0;
|
||
+ }
|
||
+
|
||
+ /* End of File */
|
||
diff -rcP gcc-2.7.2.1/objc/thr-win32.c gcc-2.7.2.1-objc-960906/objc/thr-win32.c
|
||
*** gcc-2.7.2.1/objc/thr-win32.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr-win32.c Fri Sep 6 10:33:38 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,337 ----
|
||
+ /* GNU Objective C Runtime Thread Interface - Win32 Implementation
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+ Contributed by Galen C. Hunt (gchunt@cs.rochester.edu)
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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
|
||
+ 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/thr.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ #ifndef __OBJC__
|
||
+ #define __OBJC__
|
||
+ #endif
|
||
+ #include <windows.h>
|
||
+
|
||
+ /********
|
||
+ * This structure represents a single mutual exclusion lock. Lock semantics
|
||
+ * are detailed with the subsequent functions. We use whatever lock is
|
||
+ * provided by the system. We augment it with depth and current owner id
|
||
+ * fields to implement and re-entrant lock.
|
||
+ */
|
||
+ struct objc_mutex
|
||
+ {
|
||
+ volatile objc_thread_t owner; /* Id of thread that owns. */
|
||
+ volatile int depth; /* # of acquires. */
|
||
+ HANDLE handle; /* Win32 mutex HANDLE. */
|
||
+ };
|
||
+
|
||
+ /*****************************************************************************
|
||
+ * Static variables.
|
||
+ */
|
||
+ static DWORD __objc_data_tls = (DWORD)-1; /* Win32 Thread Local Index.*/
|
||
+
|
||
+ /********
|
||
+ * Initialize the threads subsystem. Returns 0 if successful, or -1 if no
|
||
+ * thread support is available.
|
||
+ */
|
||
+ int
|
||
+ __objc_init_thread_system(void)
|
||
+ {
|
||
+ DEBUG_PRINTF("__objc_init_thread_system\n");
|
||
+
|
||
+ if ((__objc_data_tls = TlsAlloc()) != (DWORD)-1)
|
||
+ return 0; /* Yes, return success. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ int
|
||
+ __objc_fini_thread_system(void)
|
||
+ {
|
||
+ if (__objc_data_tls != (DWORD)-1) {
|
||
+ TlsFree(__objc_data_tls);
|
||
+ return 0;
|
||
+ }
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Create a new thread of execution and return its id. Return NULL if fails.
|
||
+ * The new thread starts in "func" with the given argument.
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_create(void (*func)(void *arg), void *arg)
|
||
+ {
|
||
+ DWORD thread_id = 0; /* Detached thread id. */
|
||
+ HANDLE win32_handle; /* Win32 thread handle. */
|
||
+
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+
|
||
+ if ((win32_handle = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)func,
|
||
+ arg, 0, &thread_id))) {
|
||
+ __objc_runtime_threads_alive++;
|
||
+ }
|
||
+ else
|
||
+ thread_id = 0;
|
||
+
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ 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;
|
||
+ }
|
||
+ if (SetThreadPriority(GetCurrentThread(), sys_priority))
|
||
+ return 0; /* Changed priority. End. */
|
||
+
|
||
+ return -1; /* Failed. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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;
|
||
+ }
|
||
+ return -1; /* Couldn't 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)
|
||
+ {
|
||
+ Sleep(0); /* Yield to equal thread. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Terminate the current tread. Doesn't return anything. Doesn't return.
|
||
+ * Actually, if it failed returns -1.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_exit(void)
|
||
+ {
|
||
+ objc_mutex_lock(__objc_runtime_mutex);
|
||
+ __objc_runtime_threads_alive--;
|
||
+ objc_mutex_unlock(__objc_runtime_mutex);
|
||
+
|
||
+ ExitThread(__objc_thread_exit_status); /* Terminate thread. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns an integer value which uniquely describes a thread. Must not be
|
||
+ * -1 which is reserved as a marker for "no thread".
|
||
+ */
|
||
+ objc_thread_t
|
||
+ objc_thread_id(void)
|
||
+ {
|
||
+ return (objc_thread_t)GetCurrentThreadId(); /* Return thread id. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Sets the thread's local storage pointer. Returns 0 if successful or -1
|
||
+ * if failed.
|
||
+ */
|
||
+ int
|
||
+ objc_thread_set_data(void *value)
|
||
+ {
|
||
+ if (TlsSetValue(__objc_data_tls, value))
|
||
+ return 0; /* Return thread data. */
|
||
+ return -1;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Returns the thread's local storage pointer. Returns NULL on failure.
|
||
+ */
|
||
+ void *
|
||
+ objc_thread_get_data(void)
|
||
+ {
|
||
+ return TlsGetValue(__objc_data_tls); /* Return thread data. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * Allocate a mutex. Return the mutex pointer if successful or NULL if
|
||
+ * the allocation fails for any reason.
|
||
+ */
|
||
+ objc_mutex_t
|
||
+ objc_mutex_allocate(void)
|
||
+ {
|
||
+ objc_mutex_t mutex;
|
||
+ int err = 0;
|
||
+
|
||
+ if (!(mutex = (objc_mutex_t)objc_malloc(sizeof(struct objc_mutex))))
|
||
+ return NULL; /* Abort if malloc failed. */
|
||
+
|
||
+ if ((mutex->handle = CreateMutex(NULL, 0, NULL)) == NULL) {
|
||
+ objc_free(mutex); /* Failed, free memory. */
|
||
+ return NULL; /* Abort. */
|
||
+ }
|
||
+ mutex->owner = NULL; /* No owner. */
|
||
+ mutex->depth = 0; /* No locks. */
|
||
+ return mutex; /* Return mutex handle. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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 deallotcate 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; /* # of locks on mutex. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ depth = objc_mutex_lock(mutex); /* Must have lock. */
|
||
+
|
||
+ CloseHandle(mutex->handle); /* Close Win32 handle. */
|
||
+
|
||
+ objc_free(mutex); /* Free memory. */
|
||
+ return depth; /* Return last 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; /* Cache our thread id. */
|
||
+ int status;
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ status = WaitForSingleObject(mutex->handle, INFINITE);
|
||
+ if (status != WAIT_OBJECT_0 && status != WAIT_ABANDONED)
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+
|
||
+ return ++mutex->depth; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Cache our thread id. */
|
||
+ DWORD status; /* Return status from Win32.*/
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner == thread_id) /* Already own lock? */
|
||
+ return ++mutex->depth; /* Yes, increment depth. */
|
||
+
|
||
+ status = WaitForSingleObject(mutex->handle, 0);
|
||
+ if (status != WAIT_OBJECT_0 && status != WAIT_ABANDONED)
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ mutex->owner = thread_id; /* Mark thread as owner. */
|
||
+ return ++mutex->depth; /* Increment depth to end. */
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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.
|
||
+ * Will also return -1 if the mutex free fails.
|
||
+ */
|
||
+ int
|
||
+ objc_mutex_unlock(objc_mutex_t mutex)
|
||
+ {
|
||
+ objc_thread_t thread_id; /* Cache our thread id. */
|
||
+
|
||
+ if (!mutex) /* Is argument bad? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ thread_id = objc_thread_id(); /* Get this thread's id. */
|
||
+ if (mutex->owner != thread_id) /* Does some else own lock? */
|
||
+ return -1; /* Yes, abort. */
|
||
+ if (mutex->depth > 1) /* Released last lock? */
|
||
+ return --mutex->depth; /* No, Decrement depth, end.*/
|
||
+ mutex->depth = 0; /* Yes, reset depth to 0. */
|
||
+ mutex->owner = NULL; /* Set owner to "no thread".*/
|
||
+
|
||
+ if (ReleaseMutex(mutex->handle) == 0)
|
||
+ return -1; /* Failed, abort. */
|
||
+
|
||
+ return 0; /* No, return success. */
|
||
+ }
|
||
+
|
||
+ /* End of File */
|
||
diff -rcP gcc-2.7.2.1/objc/thr.c gcc-2.7.2.1-objc-960906/objc/thr.c
|
||
*** gcc-2.7.2.1/objc/thr.c Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr.c Fri Sep 6 10:33:38 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,153 ----
|
||
+ /* GNU Objective C Runtime Thread Interface
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+ Contributed by Galen C. Hunt (gchunt@cs.rochester.edu)
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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
|
||
+ 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
|
||
+ 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 <stdlib.h>
|
||
+ #include "runtime.h"
|
||
+
|
||
+ /*************************************************************************
|
||
+ * Universal static variables:
|
||
+ */
|
||
+ int __objc_thread_exit_status = 0; /* Global exit status. */
|
||
+
|
||
+ /* 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;
|
||
+
|
||
+ /*****************************************************************************
|
||
+ * Universal Functionality
|
||
+ */
|
||
+
|
||
+ /*
|
||
+ 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;
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * First function called in a thread, starts everything else.
|
||
+ */
|
||
+ struct __objc_thread_start_state
|
||
+ {
|
||
+ SEL selector;
|
||
+ id object;
|
||
+ id argument;
|
||
+ };
|
||
+
|
||
+ static volatile void
|
||
+ __objc_thread_detach_function(struct __objc_thread_start_state *istate)
|
||
+ {
|
||
+ if (istate) { /* Is state valid? */
|
||
+ id (*imp)(id,SEL,id);
|
||
+ SEL selector = istate->selector;
|
||
+ id object = istate->object;
|
||
+ id argument = istate->argument;
|
||
+
|
||
+ 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)();
|
||
+ }
|
||
+
|
||
+ if ((imp = (id(*)(id, SEL, id))objc_msg_lookup(object, selector))) {
|
||
+ (*imp)(object, selector, argument);
|
||
+ }
|
||
+ else
|
||
+ fprintf(stderr, "__objc_thread_start called with bad selector.\n");
|
||
+ }
|
||
+ else {
|
||
+ fprintf(stderr, "__objc_thread_start called with NULL state.\n");
|
||
+ }
|
||
+ objc_thread_exit();
|
||
+ }
|
||
+
|
||
+ /********
|
||
+ * 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; /* Initialial thread state. */
|
||
+ objc_thread_t thread_id = NULL; /* Detached thread id. */
|
||
+
|
||
+ if (!(istate = (struct __objc_thread_start_state *)
|
||
+ objc_malloc(sizeof(*istate)))) /* Can we allocate state? */
|
||
+ return NULL; /* No, abort. */
|
||
+
|
||
+ istate->selector = selector; /* Initialize the thread's */
|
||
+ istate->object = object; /* state structure. */
|
||
+ istate->argument = argument;
|
||
+
|
||
+ if ((thread_id = objc_thread_create((void *)__objc_thread_detach_function,
|
||
+ istate)) == NULL) {
|
||
+ objc_free(istate); /* Release state if failed. */
|
||
+ return thread_id;
|
||
+ }
|
||
+
|
||
+ return thread_id;
|
||
+ }
|
||
+
|
||
+ #undef objc_mutex_lock()
|
||
+ #undef objc_mutex_unlock()
|
||
+
|
||
+ int
|
||
+ objc_mutex_unlock_x(objc_mutex_t mutex, const char *f, int l)
|
||
+ {
|
||
+ printf("%16.16s#%4d < unlock", f, l);
|
||
+ return objc_mutex_unlock(mutex);
|
||
+ }
|
||
+
|
||
+ int
|
||
+ objc_mutex_lock_x(objc_mutex_t mutex, const char *f, int l)
|
||
+ {
|
||
+ printf("%16.16s#%4d < lock", f, l);
|
||
+ return objc_mutex_lock(mutex);
|
||
+ }
|
||
+
|
||
+ /* End of File */
|
||
diff -rcP gcc-2.7.2.1/objc/thr.h gcc-2.7.2.1-objc-960906/objc/thr.h
|
||
*** gcc-2.7.2.1/objc/thr.h Wed Dec 31 19:00:00 1969
|
||
--- gcc-2.7.2.1-objc-960906/objc/thr.h Fri Sep 6 10:33:38 1996
|
||
***************
|
||
*** 0 ****
|
||
--- 1,104 ----
|
||
+ /* Thread and mutex controls for Objective C.
|
||
+ Copyright (C) 1996 Free Software Foundation, Inc.
|
||
+ Contributed by Galen C. Hunt (gchunt@cs.rochester.edu)
|
||
+
|
||
+ This file is part of GNU CC.
|
||
+
|
||
+ GNU CC 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 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
|
||
+ 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
|
||
+ 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
|
||
+ 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.
|
||
+ */
|
||
+
|
||
+ #define OBJC_THREAD_INTERACTIVE_PRIORITY 2
|
||
+ #define OBJC_THREAD_BACKGROUND_PRIORITY 1
|
||
+ #define OBJC_THREAD_LOW_PRIORITY 0
|
||
+
|
||
+ typedef void * objc_thread_t;
|
||
+ typedef struct objc_mutex *objc_mutex_t;
|
||
+ typedef struct objc_condition *objc_condition_t;
|
||
+
|
||
+ 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);
|
||
+
|
||
+ 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);
|
||
+
|
||
+ objc_thread_t objc_thread_create(void (*func)(void *arg), void *arg);
|
||
+ 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);
|
||
+
|
||
+ objc_thread_t objc_thread_detach(SEL selector, id object, id argument);
|
||
+ int objc_mutex_lock_x(objc_mutex_t mutex, const char *f, int l);
|
||
+ int objc_mutex_unlock_x(objc_mutex_t mutex, const char *f, int l);
|
||
+
|
||
+ /*
|
||
+ 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)();
|
||
+ objc_thread_callback objc_set_thread_callback(objc_thread_callback func);
|
||
+
|
||
+ /* For debugging of locks, uncomment these two macros: */
|
||
+ /* #define objc_mutex_lock(x) objc_mutex_lock_x(x, __FILE__, __LINE__) */
|
||
+ /* #define objc_mutex_unlock(x) objc_mutex_unlock_x(x, __FILE__, __LINE__)*/
|
||
+
|
||
+ #endif /* not __thread_INCLUDE_GNU */
|
||
diff -rcP gcc-2.7.2.1/objc-act.c gcc-2.7.2.1-objc-960906/objc-act.c
|
||
*** gcc-2.7.2.1/objc-act.c Fri Sep 6 11:22:22 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc-act.c Fri Sep 6 10:27:04 1996
|
||
***************
|
||
*** 6448,6453 ****
|
||
--- 6448,6569 ----
|
||
}
|
||
|
||
static void
|
||
+ encode_aggregate_within (type, curtype, format, left, right)
|
||
+ tree type;
|
||
+ int curtype;
|
||
+ int format;
|
||
+ char left;
|
||
+ char right;
|
||
+ {
|
||
+ if (obstack_object_size (&util_obstack) > 0
|
||
+ && *(obstack_next_free (&util_obstack) - 1) == '^')
|
||
+ {
|
||
+ tree name = TYPE_NAME (type);
|
||
+
|
||
+ /* we have a reference; this is a NeXT extension. */
|
||
+
|
||
+ if (obstack_object_size (&util_obstack) - curtype == 1
|
||
+ && format == OBJC_ENCODE_INLINE_DEFS)
|
||
+ {
|
||
+ /* Output format of struct for first level only. */
|
||
+ tree fields = TYPE_FIELDS (type);
|
||
+
|
||
+ if (name && TREE_CODE (name) == IDENTIFIER_NODE)
|
||
+ {
|
||
+ obstack_1grow (&util_obstack, left);
|
||
+ obstack_grow (&util_obstack,
|
||
+ IDENTIFIER_POINTER (name),
|
||
+ strlen (IDENTIFIER_POINTER (name)));
|
||
+ obstack_1grow (&util_obstack, '=');
|
||
+ }
|
||
+ else
|
||
+ {
|
||
+ obstack_1grow (&util_obstack, left);
|
||
+ obstack_grow (&util_obstack, "?=", 2);
|
||
+ }
|
||
+
|
||
+ for ( ; fields; fields = TREE_CHAIN (fields))
|
||
+ encode_field_decl (fields, curtype, format);
|
||
+
|
||
+ obstack_1grow (&util_obstack, right);
|
||
+ }
|
||
+
|
||
+ else if (name && TREE_CODE (name) == IDENTIFIER_NODE)
|
||
+ {
|
||
+ obstack_1grow (&util_obstack, left);
|
||
+ obstack_grow (&util_obstack,
|
||
+ IDENTIFIER_POINTER (name),
|
||
+ strlen (IDENTIFIER_POINTER (name)));
|
||
+ obstack_1grow (&util_obstack, right);
|
||
+ }
|
||
+
|
||
+ else
|
||
+ {
|
||
+ /* We have an untagged structure or a typedef. */
|
||
+ obstack_1grow (&util_obstack, left);
|
||
+ obstack_1grow (&util_obstack, '?');
|
||
+ obstack_1grow (&util_obstack, right);
|
||
+ }
|
||
+ }
|
||
+
|
||
+ else
|
||
+ {
|
||
+ tree name = TYPE_NAME (type);
|
||
+ tree fields = TYPE_FIELDS (type);
|
||
+
|
||
+ if (format == OBJC_ENCODE_INLINE_DEFS
|
||
+ || generating_instance_variables)
|
||
+ {
|
||
+ obstack_1grow (&util_obstack, left);
|
||
+ if (name && TREE_CODE (name) == IDENTIFIER_NODE)
|
||
+ obstack_grow (&util_obstack,
|
||
+ IDENTIFIER_POINTER (name),
|
||
+ strlen (IDENTIFIER_POINTER (name)));
|
||
+ else
|
||
+ obstack_1grow (&util_obstack, '?');
|
||
+
|
||
+ obstack_1grow (&util_obstack, '=');
|
||
+
|
||
+ for (; fields; fields = TREE_CHAIN (fields))
|
||
+ {
|
||
+ if (generating_instance_variables)
|
||
+ {
|
||
+ tree fname = DECL_NAME (fields);
|
||
+
|
||
+ obstack_1grow (&util_obstack, '"');
|
||
+ if (fname && TREE_CODE (fname) == IDENTIFIER_NODE)
|
||
+ {
|
||
+ obstack_grow (&util_obstack,
|
||
+ IDENTIFIER_POINTER (fname),
|
||
+ strlen (IDENTIFIER_POINTER (fname)));
|
||
+ }
|
||
+
|
||
+ obstack_1grow (&util_obstack, '"');
|
||
+ }
|
||
+
|
||
+ encode_field_decl (fields, curtype, format);
|
||
+ }
|
||
+
|
||
+ obstack_1grow (&util_obstack, right);
|
||
+ }
|
||
+
|
||
+ else
|
||
+ {
|
||
+ obstack_1grow (&util_obstack, left);
|
||
+ if (name && TREE_CODE (name) == IDENTIFIER_NODE)
|
||
+ obstack_grow (&util_obstack,
|
||
+ IDENTIFIER_POINTER (name),
|
||
+ strlen (IDENTIFIER_POINTER (name)));
|
||
+ else
|
||
+ /* We have an untagged structure or a typedef. */
|
||
+ obstack_1grow (&util_obstack, '?');
|
||
+
|
||
+ obstack_1grow (&util_obstack, right);
|
||
+ }
|
||
+ }
|
||
+ }
|
||
+
|
||
+ static void
|
||
encode_aggregate (type, curtype, format)
|
||
tree type;
|
||
int curtype;
|
||
***************
|
||
*** 6459,6598 ****
|
||
{
|
||
case RECORD_TYPE:
|
||
{
|
||
! if (obstack_object_size (&util_obstack) > 0
|
||
! && *(obstack_next_free (&util_obstack) - 1) == '^')
|
||
! {
|
||
! tree name = TYPE_NAME (type);
|
||
!
|
||
! /* We have a reference; this is a NeXT extension. */
|
||
!
|
||
! if (obstack_object_size (&util_obstack) - curtype == 1
|
||
! && format == OBJC_ENCODE_INLINE_DEFS)
|
||
! {
|
||
! /* Output format of struct for first level only. */
|
||
! tree fields = TYPE_FIELDS (type);
|
||
!
|
||
! if (name && TREE_CODE (name) == IDENTIFIER_NODE)
|
||
! {
|
||
! obstack_1grow (&util_obstack, '{');
|
||
! obstack_grow (&util_obstack,
|
||
! IDENTIFIER_POINTER (name),
|
||
! strlen (IDENTIFIER_POINTER (name)));
|
||
! obstack_1grow (&util_obstack, '=');
|
||
! }
|
||
!
|
||
! else
|
||
! obstack_grow (&util_obstack, "{?=", 3);
|
||
!
|
||
! for ( ; fields; fields = TREE_CHAIN (fields))
|
||
! encode_field_decl (fields, curtype, format);
|
||
!
|
||
! obstack_1grow (&util_obstack, '}');
|
||
! }
|
||
!
|
||
! else if (name && TREE_CODE (name) == IDENTIFIER_NODE)
|
||
! {
|
||
! obstack_1grow (&util_obstack, '{');
|
||
! obstack_grow (&util_obstack,
|
||
! IDENTIFIER_POINTER (name),
|
||
! strlen (IDENTIFIER_POINTER (name)));
|
||
! obstack_1grow (&util_obstack, '}');
|
||
! }
|
||
!
|
||
! else
|
||
! /* We have an untagged structure or a typedef. */
|
||
! obstack_grow (&util_obstack, "{?}", 3);
|
||
! }
|
||
!
|
||
! else
|
||
! {
|
||
! tree name = TYPE_NAME (type);
|
||
! tree fields = TYPE_FIELDS (type);
|
||
!
|
||
! if (format == OBJC_ENCODE_INLINE_DEFS
|
||
! || generating_instance_variables)
|
||
! {
|
||
! obstack_1grow (&util_obstack, '{');
|
||
! if (name && TREE_CODE (name) == IDENTIFIER_NODE)
|
||
! obstack_grow (&util_obstack,
|
||
! IDENTIFIER_POINTER (name),
|
||
! strlen (IDENTIFIER_POINTER (name)));
|
||
!
|
||
! else
|
||
! obstack_1grow (&util_obstack, '?');
|
||
!
|
||
! obstack_1grow (&util_obstack, '=');
|
||
!
|
||
! for (; fields; fields = TREE_CHAIN (fields))
|
||
! {
|
||
! if (generating_instance_variables)
|
||
! {
|
||
! tree fname = DECL_NAME (fields);
|
||
!
|
||
! obstack_1grow (&util_obstack, '"');
|
||
! if (fname && TREE_CODE (fname) == IDENTIFIER_NODE)
|
||
! {
|
||
! obstack_grow (&util_obstack,
|
||
! IDENTIFIER_POINTER (fname),
|
||
! strlen (IDENTIFIER_POINTER (fname)));
|
||
! }
|
||
!
|
||
! obstack_1grow (&util_obstack, '"');
|
||
! }
|
||
!
|
||
! encode_field_decl (fields, curtype, format);
|
||
! }
|
||
!
|
||
! obstack_1grow (&util_obstack, '}');
|
||
! }
|
||
!
|
||
! else
|
||
! {
|
||
! obstack_1grow (&util_obstack, '{');
|
||
! if (name && TREE_CODE (name) == IDENTIFIER_NODE)
|
||
! obstack_grow (&util_obstack,
|
||
! IDENTIFIER_POINTER (name),
|
||
! strlen (IDENTIFIER_POINTER (name)));
|
||
! else
|
||
! /* We have an untagged structure or a typedef. */
|
||
! obstack_1grow (&util_obstack, '?');
|
||
!
|
||
! obstack_1grow (&util_obstack, '}');
|
||
! }
|
||
! }
|
||
break;
|
||
}
|
||
-
|
||
case UNION_TYPE:
|
||
{
|
||
! if (*obstack_next_free (&util_obstack) == '^'
|
||
! || format != OBJC_ENCODE_INLINE_DEFS)
|
||
! {
|
||
! /* We have a reference (this is a NeXT extension)
|
||
! or we don't want the details. */
|
||
! if (TYPE_NAME (type)
|
||
! && TREE_CODE (TYPE_NAME (type)) == IDENTIFIER_NODE)
|
||
! {
|
||
! obstack_1grow (&util_obstack, '(');
|
||
! obstack_grow (&util_obstack,
|
||
! IDENTIFIER_POINTER (TYPE_NAME (type)),
|
||
! strlen (IDENTIFIER_POINTER (TYPE_NAME (type))));
|
||
! obstack_1grow (&util_obstack, ')');
|
||
! }
|
||
!
|
||
! else
|
||
! /* We have an untagged structure or a typedef. */
|
||
! obstack_grow (&util_obstack, "(?)", 3);
|
||
! }
|
||
! else
|
||
! {
|
||
! tree fields = TYPE_FIELDS (type);
|
||
! obstack_1grow (&util_obstack, '(');
|
||
! for ( ; fields; fields = TREE_CHAIN (fields))
|
||
! encode_field_decl (fields, curtype, format);
|
||
!
|
||
! obstack_1grow (&util_obstack, ')');
|
||
! }
|
||
break;
|
||
}
|
||
|
||
--- 6575,6586 ----
|
||
{
|
||
case RECORD_TYPE:
|
||
{
|
||
! encode_aggregate_within(type, curtype, format, '{', '}');
|
||
break;
|
||
}
|
||
case UNION_TYPE:
|
||
{
|
||
! encode_aggregate_within(type, curtype, format, '(', ')');
|
||
break;
|
||
}
|
||
|
||
diff -rcP gcc-2.7.2.1/objc-parse.c gcc-2.7.2.1-objc-960906/objc-parse.c
|
||
*** gcc-2.7.2.1/objc-parse.c Fri Sep 6 11:22:25 1996
|
||
--- gcc-2.7.2.1-objc-960906/objc-parse.c Fri Sep 6 10:27:06 1996
|
||
***************
|
||
*** 1,5 ****
|
||
|
||
! /* A Bison parser, made from objc-parse.y with Bison version GNU Bison version 1.22
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
--- 1,5 ----
|
||
|
||
! /* A Bison parser, made from objc-parse.y with Bison version GNU Bison version 1.24
|
||
*/
|
||
|
||
#define YYBISON 1 /* Identify Bison output. */
|
||
***************
|
||
*** 495,501 ****
|
||
2797, 2804, 2813
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$illegal.","IDENTIFIER",
|
||
"TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS","SIZEOF",
|
||
"ENUM","STRUCT","UNION","IF","ELSE","WHILE","DO","FOR","SWITCH","CASE","DEFAULT",
|
||
"BREAK","CONTINUE","RETURN","GOTO","ASM_KEYWORD","TYPEOF","ALIGNOF","ATTRIBUTE",
|
||
--- 495,501 ----
|
||
2797, 2804, 2813
|
||
};
|
||
|
||
! static const char * const yytname[] = { "$","error","$undefined.","IDENTIFIER",
|
||
"TYPENAME","SCSPEC","TYPESPEC","TYPE_QUAL","CONSTANT","STRING","ELLIPSIS","SIZEOF",
|
||
"ENUM","STRUCT","UNION","IF","ELSE","WHILE","DO","FOR","SWITCH","CASE","DEFAULT",
|
||
"BREAK","CONTINUE","RETURN","GOTO","ASM_KEYWORD","TYPEOF","ALIGNOF","ATTRIBUTE",
|
||
***************
|
||
*** 1586,1599 ****
|
||
52
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/local/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
|
||
|
||
This program 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 1, or (at your option)
|
||
any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
--- 1586,1599 ----
|
||
52
|
||
};
|
||
/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
|
||
! #line 3 "/usr/lib/bison.simple"
|
||
|
||
/* Skeleton output parser for bison,
|
||
! Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
|
||
|
||
This program 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.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
***************
|
||
*** 1605,1610 ****
|
||
--- 1605,1614 ----
|
||
along with this program; if not, write to the Free Software
|
||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||
|
||
+ /* As a special exception, when this file is copied by Bison into a
|
||
+ Bison output file, you may use that output file without restriction.
|
||
+ This special exception was added by the Free Software Foundation
|
||
+ in version 1.24 of Bison. */
|
||
|
||
#ifndef alloca
|
||
#ifdef __GNUC__
|
||
***************
|
||
*** 1678,1687 ****
|
||
--- 1682,1699 ----
|
||
|
||
#ifdef YYPURE
|
||
#ifdef YYLSP_NEEDED
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
|
||
+ #else
|
||
#define YYLEX yylex(&yylval, &yylloc)
|
||
+ #endif
|
||
+ #else /* not YYLSP_NEEDED */
|
||
+ #ifdef YYLEX_PARAM
|
||
+ #define YYLEX yylex(&yylval, YYLEX_PARAM)
|
||
#else
|
||
#define YYLEX yylex(&yylval)
|
||
#endif
|
||
+ #endif /* not YYLSP_NEEDED */
|
||
#endif
|
||
|
||
/* If nonreentrant, generate the variables here */
|
||
***************
|
||
*** 1729,1742 ****
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
--- 1741,1754 ----
|
||
#endif
|
||
|
||
#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
|
||
! #define __yy_memcpy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)
|
||
#else /* not GNU C or C++ */
|
||
#ifndef __cplusplus
|
||
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (from, to, count)
|
||
char *from;
|
||
char *to;
|
||
int count;
|
||
***************
|
||
*** 1754,1760 ****
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_bcopy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
--- 1766,1772 ----
|
||
/* This is the most reliable way to avoid incompatibilities
|
||
in available built-in functions on various systems. */
|
||
static void
|
||
! __yy_memcpy (char *from, char *to, int count)
|
||
{
|
||
register char *f = from;
|
||
register char *t = to;
|
||
***************
|
||
*** 1767,1773 ****
|
||
#endif
|
||
#endif
|
||
|
||
! #line 184 "/usr/local/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
--- 1779,1785 ----
|
||
#endif
|
||
#endif
|
||
|
||
! #line 192 "/usr/lib/bison.simple"
|
||
|
||
/* The user can define YYPARSE_PARAM as the name of an argument to be passed
|
||
into yyparse. The argument should have type void *.
|
||
***************
|
||
*** 1900,1911 ****
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
--- 1912,1923 ----
|
||
if (yystacksize > YYMAXDEPTH)
|
||
yystacksize = YYMAXDEPTH;
|
||
yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
|
||
! __yy_memcpy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
|
||
yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
|
||
! __yy_memcpy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
|
||
#ifdef YYLSP_NEEDED
|
||
yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
|
||
! __yy_memcpy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
|
||
#endif
|
||
#endif /* no yyoverflow */
|
||
|
||
***************
|
||
*** 4718,4724 ****
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 480 "/usr/local/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
--- 4730,4736 ----
|
||
break;}
|
||
}
|
||
/* the action file gets copied in in place of this dollarsign */
|
||
! #line 487 "/usr/lib/bison.simple"
|
||
|
||
yyvsp -= yylen;
|
||
yyssp -= yylen;
|
||
diff -rcP gcc-2.7.2.1/version.c gcc-2.7.2.1-objc-960906/version.c
|
||
*** gcc-2.7.2.1/version.c Fri Sep 6 11:23:19 1996
|
||
--- gcc-2.7.2.1-objc-960906/version.c Fri Sep 6 10:27:59 1996
|
||
***************
|
||
*** 1 ****
|
||
! char *version_string = "2.7.2.1";
|
||
--- 1 ----
|
||
! char *version_string = "2.7.2.1 Objective-C snapshot 960906";
|