1992-01-18 00:15:38 +01:00
|
|
|
|
/* Implement classes and message passing for Objective C.
|
diagnostic.h (set_internal_error_function): Renamed.
* diagnostic.h (set_internal_error_function): Renamed.
* toplev.h (internal_error): Renamed from fatal.
(pfatal_with_name): Deleted.
(fatal_io_error): Now has printf-style arguments.
* diagnostic.c (pfatal_with_name): Deleted.
(fatal_io_error): Rework to have args in printf-style.
(set_internal_error_function): Renamed from set_fatal_function.
(internal_error): Renamed from fatal.
(error_recursion, fancy_abort): Call internal_error instead of fatal.
* dwarf2out.c (get_cfa_from_loc_descr): Likewise.
* emit-rtl.c (gen_realpart, gen_imagpart): Likewise.
* expr.c (check_max_integer_computation_mode, expand_expr): Likewise.
* flow.c (verify_flow_info): Likewise.
* config/arm/arm.c (thumb_unexpanded_epilogue): Likewise.
* config/mips/mips.c (save_restore_insns): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
(dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/expr.c (java_lang_expand_expr): Likewise.
* java/jcf-parse.c (get_constant): Likewise.
* java/mangle.c (java_mangle_decl): Likewise.
* java/parse.y (make_nested_class_name, java_complete_lhs): Likewise.
(operator_string): Likewise.
* except.c (duplicate_eh_handlers): Call abort instead of fatal.
* flow.c (verify_flow_info): Likewise.
* ch/convert.c (convert): Likewise.
* ch/except.c (pop_handler, chill_check_no_handlers): Likewise.
* ch/expr.c (chill_expand_expr): Likewise.
* ch/parse.c (peek_token_, pushback_token, require): Likewise.
* config/arm/arm.c (thumb_load_double_from_address): Likewise.
* config/avr/avr.c (pttreg_to_str, unique_section): Likewise.
(avr_normalize_condition): Likewise.
* config/c4x/c4x.c (c4x_emit_libcall, c4x_valid_operands): Likewise.
* config/dsp16xx/dsp16xx.c (dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/class.c (build_class_ref): Likewise.
* java/constants.c (write_constant_pool): Likewise.
* java/decl.c (start_java_method): Likewise.
* java/expr.c (push_type, java_stack_pop, java_stack_swap): Likewise.
(java_stack_dup, encode_newarray_type): Likewise.
(build_java_array_length_access): Likewise.
(build_java_check_indexed_type, expand_java_pushc): Likewise.
(build_java_soft_divmod, build_invokeinterface): Likewise.
* java/java-tree.h (INNER_CLASS_P): Likewise.
* java/jcf-parse.c (parse_signature, get_name_constant): Likewise.
(give_name_to_class, get_class_constant): Likewise.
* java/jcf-write.c (CHECK_PUT, CHECK_OP, get_access_flags): Likewise.
(find_constant_index, generate_bytecode_conditional): Likewise.
(generate_bytecode_insns, perform_relocations): Likewise.
* java/lex.c (java_unget_unicode, java_lex): Likewise.
* java/mangle.c (mangle_type, mangle_record_type): Likewise.
(mangle_pointer_type, mangle_array_type, init_mangling): Likewise.
(finish_mangling): Likewise.
* java/parse.h (MARK_FINAL_PARMS): Likewise.
* java/parse.y (pop_current_osb, unreachable_stmt_error): Likewise.
(obtain_incomplete_type, java_complete_class): Likewise.
(java_check_regular_methods, java_complete_expand_method): Likewise.
(cut_identifier_in_qualified, check_deprecation): Likewise.
(patch_invoke, find_applicable_accessible_methods_list): Likewise.
(java_complete_lhs, lookup_name_in_blocks): Likewise.
(check_final_variable_indirect_assignment, build_unaryop): Likewise.
* java/typeck.c (set_local_type, parse_signature_type): Likewise.
(parse_signature_string, build_java_signature): Likewise;
(set_java_signature): Likewise.
* java/verify.c (type_stack_dup, CHECK_PC_IN_RANGE): Likewise.
* c-parse.in (methoddef): Call fatal_error instead of fatal.
* objc/objc-act.c (build_ivar_chain): Likewise.
* cp/except.c (decl_is_java_type): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
* cp/init.c (build_new_1): Likewise.
* f/com.c (ffecom_init_0): Likewise.
* java/class.c (add_method, build_static_field_ref): Likewise.
* java/expr.c (build_known_method_ref, expand_invoke): Likewise.
* java/jcf-parse.c (get_constant, jcf_parse): Likewise.
* java/lex.c (java_new_new_lexer): Likewise.
* java/jv-scan.c (main): Likewise.
(fatal_error): Renamed from fatal.
* dwarfout.c (dwarfout_init): Call fatal_io_error instead of
pfatal_with_name.
* graph.c (clean_graph_dump_file): Likewise.
* profile.c (init_branch_prob): Likewise.
* ch/grant.c (write_grant_file): Likewise.
* ch/lex.c (init_parse, same_file, yywrap): Likewise.
* f/com.c (init_parse): Likewise.
* java/jcf-parse.c (yyparse): Likewise.
* objc/objc-act.c (objc_init): Likewise.
* java/jcf-parse.c (jcf_parse_source): Call fatal_io_error, not fatal.
(yyparse): Likewise.
* java/jcf-write.c (make_class_file_name, write_classfile): Likewise.
* java/lex.c (java_get_line_col): Likewise.
* hash.c (hash_allocate): Don't check for failure returns from
obstack functions that can't fail.
(hash_table_init_n, hash_table_init): Likewise; also now return void.
* hash.h (hash_table_init_n, hash_table_init): Now return void.
* cp/decl.c (build_typename_type): hash_table_init now returns void.
* ch/lang.c (GNU_xref_begin, GNU_xref_end): Deleted.
* ch/lex.c (convert_bitstring): Delete check for alloca failure.
* config/dsp16xx/dsp16xx.c (dsp16xx_invalid_register_for_compare):
Deleted.
* config/dsp16xx/dsp16xx.md (unnamed cmphi): Call abort instead of it.
* f/com.c (ffecom_decode_include_option_): Make errors non-fatal.
* f/lex.c (ffelex_cfelex_, ffelex_get_directive_line_): Likewise.
(ffelex_hash_): Likewise.
* config/arm/arm.c (arm_override_options): Likewise.
* config/avr/avr.c (avr_override_options): Likewise.
* config/c4x/c4x.c (c4x_expand_prologue): Likewise.
* config/dsp16xx/dsp16xx.c (function_prologue): Likewise.
* config/h8300/h8300.c (h8300_init_once): Likewise.
* config/mips/mips.c (override_options): Likewise.
* config/i386/i386.c (override_options): Likewise, rework.
* config/m68k/m68k.c (override_options): Likewise.
* cp/decl.c (init_decl_processing): Likewise.
* java/jcf-parse.c (load_class): Likewise.
* config/dsp16xx/dsp16xx.c (print_operand): Call output_operand_lossage
instead of fatal.
* config/mips/mips.c (print_operand): Likewise.
* java/lex.c (byteswap_init, need_byteswap): Only #ifdef HAVE_ICONV.
* objc/objc_act.c (objc_check_decl): Remove unneeded fatal call.
(get_object_reference): Likewise.
From-SVN: r39443
2001-02-04 23:44:12 +01:00
|
|
|
|
Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001
|
|
|
|
|
Free Software Foundation, Inc.
|
1995-04-27 01:18:37 +02:00
|
|
|
|
Contributed by Steve Naroff.
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
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
|
1995-06-15 13:54:32 +02:00
|
|
|
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
|
|
|
|
Boston, MA 02111-1307, USA. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Purpose: This module implements the Objective-C 4.0 language.
|
|
|
|
|
|
|
|
|
|
compatibility issues (with the Stepstone translator):
|
|
|
|
|
|
|
|
|
|
- does not recognize the following 3.3 constructs.
|
|
|
|
|
@requires, @classes, @messages, = (...)
|
|
|
|
|
- methods with variable arguments must conform to ANSI standard.
|
|
|
|
|
- tagged structure definitions that appear in BOTH the interface
|
|
|
|
|
and implementation are not allowed.
|
|
|
|
|
- public/private: all instance variables are public within the
|
|
|
|
|
context of the implementation...I consider this to be a bug in
|
|
|
|
|
the translator.
|
|
|
|
|
- statically allocated objects are not supported. the user will
|
|
|
|
|
receive an error if this service is requested.
|
|
|
|
|
|
|
|
|
|
code generation `options':
|
|
|
|
|
|
2001-04-13 03:42:39 +02:00
|
|
|
|
*/
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
#include "config.h"
|
1998-05-06 10:57:18 +02:00
|
|
|
|
#include "system.h"
|
1992-01-18 00:15:38 +01:00
|
|
|
|
#include "tree.h"
|
2000-09-17 09:38:23 +02:00
|
|
|
|
#include "rtl.h"
|
|
|
|
|
#include "expr.h"
|
1992-01-18 00:15:38 +01:00
|
|
|
|
#include "c-tree.h"
|
|
|
|
|
#include "c-lex.h"
|
2000-09-17 09:38:23 +02:00
|
|
|
|
#include "c-common.h"
|
1992-01-18 00:15:38 +01:00
|
|
|
|
#include "flags.h"
|
1993-01-19 04:21:31 +01:00
|
|
|
|
#include "objc-act.h"
|
1992-01-18 00:15:38 +01:00
|
|
|
|
#include "input.h"
|
1996-07-23 22:09:26 +02:00
|
|
|
|
#include "except.h"
|
1993-04-10 01:12:37 +02:00
|
|
|
|
#include "function.h"
|
1997-12-12 07:20:41 +01:00
|
|
|
|
#include "output.h"
|
Warning fixes:
* Makefile.in (c-lang.o): Depend on c-tree.h, c-lex.h and toplev.h.
(c-lex.o): Depend on output.h.
(c-common.o): Likewise.
(stmt.o): Likewise.
(calls.o): Likewise.
(integrate.o): Depend on toplev.h.
(regclass.o): Depend on output.h.
(final.o): Depend on reload.h.
* c-common.c: Include output.h.
(check_format_info): Remove unused variable `integral_format'.
* c-decl.c (print_lang_decl): Mark parameters `file', `node' and
`indent' with ATTRIBUTE_UNUSED.
(print_lang_type): Likewise.
(maybe_build_cleanup): Likewise for parameter `decl'.
(copy_lang_decl): Likewise for parameter `node'.
* c-lang.c: Include c-tree.h, c-lex.h and toplev.h.
(lang_print_xnode): Mark parameters `file', `node' and `indent'
with ATTRIBUTE_UNUSED.
(lookup_interface): Likewise for parameter `arg'.
(is_class_name): Likewise.
(maybe_objc_check_decl): Likewise for parameter `decl'.
(maybe_objc_comptypes): Likewise for parameters `lhs', `rhs' and
`reflexive'.
(maybe_objc_method_name): Likewise for parameter `decl'.
(build_objc_string): Likewise for parameters `len' and `str'.
* c-lex.c: Include output.h.
* c-lex.h (position_after_white_space): Correct typo in prototype.
* c-tree.h (finish_file, c_expand_start_cond, c_expand_start_else,
c_expand_end_cond, init_iterators): Add prototypes.
* caller-save.c (set_reg_live): Mark parameters `reg' and `setter'
with ATTRIBUTE_UNUSED.
* calls.c: Include output.h.
* cccp.c (pipe_closed): Mark parameter `signo' with
ATTRIBUTE_UNUSED.
* combine.c: Move inclusion of expr.h to after insn-config.h.
* iris6.h (ASM_IDENTIFY_GCC, ASM_IDENTIFY_LANGUAGE): Don't define
as empty, rather define as ((void)0).
* sparc.c (sparc_check_64): Add braces around ambiguous `else'.
Add parentheses around assignment used as truth value.
* cplus-dem.c (squangle_mop_up): Change return type to void.
(internal_cplus_demangle): Remove unused parameter `options'.
All callers changed.
(cplus_demangle_opname): Remove function wide variable `int i' and
replace with `size_t i' at each location where it is used.
(cplus_demangle_opname): change type of `i' from int to size_t.
* cppexp.c (right_shift): Mark parameter `pfile' with
ATTRIBUTE_UNUSED.
* cpphash.c (cpp_lookup): Likewise.
(cpp_hash_cleanup): Likewise.
* cpplib.c (parse_name): Add a prototype and make it static.
(null_underflow): Mark parameter `pfile' with ATTRIBUTE_UNUSED.
(null_cleanup): Likewise for parameters `pbuf' and `pfile'.
(macro_cleanup): Likewise for parameter `pfile'.
(file_cleanup): Likewise.
* cpplib.h (cpp_reader_init, cpp_options_init, cpp_start_read,
cpp_read_check_assertion, skip_rest_of_line): Add prototypes.
* crtstuff.c (force_to_data, __CTOR_LIST__, force_to_data,
__DTOR_END__, __FRAME_END__): Mark with ATTRIBUTE_UNUSED.
* cse.c (cse_check_loop_start): Mark parameter `set' with
ATTRIBUTE_UNUSED.
* dbxout.c (flag_minimal_debug, have_used_extensions,
source_label_number): Move inside macro wrapper check against
defined (DBX_DEBUGGING_INFO) || defined (XCOFF_DEBUGGING_INFO).
* dwarf2out.c (gen_entry_point_die): Hide prototype and definition.
* except.h (doing_eh): Provide prototype.
* expr.c: Move inclusion of expr.h to after insn-config.h.
* final.c: Include reload.h.
(shorten_branches): Cast the first argument of bzero to char *.
* fix-header.c (cpp_print_containing_files): Mark parameter
`pfile' with ATTRIBUTE_UNUSED.
(cpp_fatal): Likewise.
* flow.c (find_basic_blocks_1): Cast the first argument of bzero
to char *.
* genattrtab.c (make_length_attrs): Change the type of variable
`i' from int to size_t.
(zero_fn): Mark parameter `exp' with ATTRIBUTE_UNUSED.
(one_fn): Likewise.
* genextract.c (main): When generating insn-extract.c, mark
variable `junk' with ATTRIBUTE_UNUSED.
* gengenrtl.c (gencode): When generating genrtl.c, cast the first
argument of bzero to char*.
* integrate.c: Include toplev.h.
* libgcc2.c: Wrap `struct exception_table' and
`find_exception_handler' in macro DWARF2_UNWIND_INFO.
* objc/Make-lang.in (objc-act.o): Depend on toplev.h.
* objc/objc-act.c: Include toplev.h.
(lang_print_xnode): Mark parameters `file', `node' and `indent'
with ATTRIBUTE_UNUSED.
(finish_protocol): Likewise for parameter `protocol'.
* output.h (declare_weak): Add prototype.
(decode_reg_name): Don't wrap with TREE_CODE macro.
(assemble_alias): Add prototype.
* regclass.c: Include output.h.
* reload.h (reloads_conflict): Add prototype.
* rtl.h (print_rtl_single, mark_elimiation, reg_class_subset_p,
output_func_start_profiler): Add prototypes.
* rtlanal.c (reg_set_p_1): Mark parameters `x' and `pat' with
ATTRIBUTE_UNUSED.
* scan-decls.c: Include scan.h.
* scan.h (recognized_function, recognized_extern): Add prototypes.
* stmt.c: Include output.h.
* toplev.c (error_for_asm, warning_for_asm): Remove prototypes.
(output_lang_identify): Hide prototype and definition.
(float_signal): Mark parameter `signo' with ATTRIBUTE_UNUSED.
(pipe_closed): Likewise.
* toplev.h (count_error, strip_off_ending, error_for_asm,
warning_for_asm): Add prototypes.
From-SVN: r19712
1998-05-13 14:40:39 +02:00
|
|
|
|
#include "toplev.h"
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#include "ggc.h"
|
1998-06-10 12:22:54 +02:00
|
|
|
|
#include "cpplib.h"
|
|
|
|
|
|
1993-03-08 22:17:33 +01:00
|
|
|
|
/* This is the default way of generating a method name. */
|
1993-03-10 08:19:29 +01:00
|
|
|
|
/* I am not sure it is really correct.
|
|
|
|
|
Perhaps there's a danger that it will make name conflicts
|
|
|
|
|
if method names contain underscores. -- rms. */
|
1993-03-08 22:17:33 +01:00
|
|
|
|
#ifndef OBJC_GEN_METHOD_LABEL
|
1993-05-06 19:39:52 +02:00
|
|
|
|
#define OBJC_GEN_METHOD_LABEL(BUF, IS_INST, CLASS_NAME, CAT_NAME, SEL_NAME, NUM) \
|
|
|
|
|
do { \
|
|
|
|
|
char *temp; \
|
|
|
|
|
sprintf ((BUF), "_%s_%s_%s_%s", \
|
|
|
|
|
((IS_INST) ? "i" : "c"), \
|
|
|
|
|
(CLASS_NAME), \
|
|
|
|
|
((CAT_NAME)? (CAT_NAME) : ""), \
|
|
|
|
|
(SEL_NAME)); \
|
|
|
|
|
for (temp = (BUF); *temp; temp++) \
|
|
|
|
|
if (*temp == ':') *temp = '_'; \
|
1993-03-08 22:17:33 +01:00
|
|
|
|
} while (0)
|
1992-10-31 21:41:23 +01:00
|
|
|
|
#endif
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* These need specifying. */
|
|
|
|
|
#ifndef OBJC_FORWARDING_STACK_OFFSET
|
|
|
|
|
#define OBJC_FORWARDING_STACK_OFFSET 0
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef OBJC_FORWARDING_MIN_OFFSET
|
|
|
|
|
#define OBJC_FORWARDING_MIN_OFFSET 0
|
|
|
|
|
#endif
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* Define the special tree codes that we use. */
|
|
|
|
|
|
|
|
|
|
/* Table indexed by tree code giving a string containing a character
|
|
|
|
|
classifying the tree code. Possibilities are
|
|
|
|
|
t, d, s, c, r, <, 1 and 2. See objc-tree.def for details. */
|
|
|
|
|
|
|
|
|
|
#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE,
|
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
static const char objc_tree_code_type[] = {
|
1997-12-12 07:49:29 +01:00
|
|
|
|
'x',
|
1992-01-18 00:15:38 +01:00
|
|
|
|
#include "objc-tree.def"
|
|
|
|
|
};
|
|
|
|
|
#undef DEFTREECODE
|
|
|
|
|
|
|
|
|
|
/* Table indexed by tree code giving number of expression
|
|
|
|
|
operands beyond the fixed part of the node structure.
|
|
|
|
|
Not used for types or decls. */
|
|
|
|
|
|
|
|
|
|
#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH,
|
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
static const int objc_tree_code_length[] = {
|
1992-01-18 00:15:38 +01:00
|
|
|
|
0,
|
|
|
|
|
#include "objc-tree.def"
|
|
|
|
|
};
|
|
|
|
|
#undef DEFTREECODE
|
|
|
|
|
|
|
|
|
|
/* Names of tree components.
|
|
|
|
|
Used for printing out the tree and error messages. */
|
|
|
|
|
#define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME,
|
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
static const char * const objc_tree_code_name[] = {
|
1992-01-18 00:15:38 +01:00
|
|
|
|
"@@dummy",
|
|
|
|
|
#include "objc-tree.def"
|
|
|
|
|
};
|
|
|
|
|
#undef DEFTREECODE
|
|
|
|
|
|
1992-04-29 01:43:21 +02:00
|
|
|
|
/* Set up for use of obstacks. */
|
|
|
|
|
|
|
|
|
|
#include "obstack.h"
|
|
|
|
|
|
|
|
|
|
#define obstack_chunk_alloc xmalloc
|
|
|
|
|
#define obstack_chunk_free free
|
|
|
|
|
|
|
|
|
|
/* This obstack is used to accumulate the encoding of a data type. */
|
|
|
|
|
static struct obstack util_obstack;
|
|
|
|
|
/* This points to the beginning of obstack contents,
|
|
|
|
|
so we can free the whole contents. */
|
|
|
|
|
char *util_firstobj;
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
/* for encode_method_def */
|
|
|
|
|
#include "rtl.h"
|
|
|
|
|
|
1997-03-15 13:53:30 +01:00
|
|
|
|
#define OBJC_VERSION (flag_next_runtime ? 5 : 8)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
#define PROTOCOL_VERSION 2
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
#define OBJC_ENCODE_INLINE_DEFS 0
|
|
|
|
|
#define OBJC_ENCODE_DONT_INLINE_DEFS 1
|
|
|
|
|
|
2001-03-28 04:49:19 +02:00
|
|
|
|
/* Needed to help fix missing @end situations. */
|
|
|
|
|
extern tree objc_implementation_context;
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
/*** Private Interface (procedures) ***/
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Used by compile_file. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void init_objc PARAMS ((void));
|
|
|
|
|
static void finish_objc PARAMS ((void));
|
2001-01-09 11:54:01 +01:00
|
|
|
|
static void objc_init PARAMS ((void));
|
2001-01-10 08:51:11 +01:00
|
|
|
|
static void objc_init_options PARAMS ((void));
|
|
|
|
|
static int objc_decode_option PARAMS ((int, char **));
|
|
|
|
|
static void objc_post_options PARAMS ((void));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Code generation. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void synth_module_prologue PARAMS ((void));
|
|
|
|
|
static tree build_constructor PARAMS ((tree, tree));
|
rtl.h (rtunion_def): Constify member `rtstr'.
* rtl.h (rtunion_def): Constify member `rtstr'.
(emit_line_note_after, emit_line_note, emit_line_note_force,
emit_note, decode_asm_operands): Constify.
* cse.c (canon_hash): Likewise.
* dbxout.c (dbxout_block): Likewise.
* diagnostic.c (file_and_line_for_asm, v_error_for_asm,
v_warning_for_asm): Likewise.
* dwarfout.c (function_start_label): Likewise.
* emit-rtl.c (emit_line_note_after, emit_line_note, emit_note,
emit_line_note_force): Likewise.
* final.c (last_filename, asm_insn_count, final_scan_insn,
output_source_line): Likewise.
* function.h (struct emit_status): Likewise.
* gcse.c (hash_expr_1): Likewise.
* genattr.c (gen_attr, main): Likewise.
* genattrtab.c (struct function_unit, current_alternative_string,
write_attr_valueq, n_comma_elts, next_comma_elt, attr_eq,
attr_numeral, check_attr_test, check_attr_value,
convert_set_attr_alternative, convert_set_attr,
compute_alternative_mask, simplify_by_exploding, gen_attr,
gen_unit): Likewise.
* genflags.c (gen_insn): Likewise.
* gengenrtl.c (type_from_format): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (n_occurrences, process_template, process_template):
Likewise.
* ggc-page.c (ggc_set_mark, ggc_mark_if_gcable, ggc_get_size):
Likewise.
* ggc-simple.c (ggc_set_mark, ggc_mark_if_gcable, ggc_get_size):
Likewise.
* ggc.h (ggc_mark_string, ggc_mark, ggc_mark_if_gcable,
ggc_set_mark, ggc_get_size): Likewise.
* objc/objc-act.c (build_module_descriptor, finish_objc): Likewise.
* optabs.c (init_one_libfunc): Likewise.
* output.h (assemble_start_function): Likewise.
* recog.c (decode_asm_operands): Likewise.
* toplev.c (rest_of_compilation): Likewise.
* tree.h (emit_line_note_after, emit_line_note,
emit_line_note_force): Likewise.
* varasm.c (asm_output_bss, asm_output_aligned_bss,
asm_emit_uninitialised, assemble_start_function,
assemble_variable, const_hash, compare_constant_1,
find_pool_constant, mark_constant_pool, assemble_alias): Likewise.
* xcoffout.h (DBX_FINISH_SYMBOL): Likewise.
* alpha/alpha.md (call_vms, call_value_vms): Likewise.
* arm/aof.h (ASM_OUTPUT_ASCII): Likewise.
* arm/aout.h (ASM_OUTPUT_ASCII): Likewise.
* arm/arm-protos.h (output_ascii_pseudo_op, arm_dllexport_name_p,
arm_dllimport_name_p): Likewise.
* arm/arm.c (arm_encode_call_attribute, output_ascii_pseudo_op):
Likewise.
* arm/arm.h (ASM_OUTPUT_MI_THUNK): Likewise.
* arm/elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* arm/pe.c (arm_dllexport_name_p, arm_dllimport_name_p,
arm_mark_dllexport, arm_mark_dllimport,
arm_pe_encode_section_info): Likewise.
* arm/telf.h (ASM_OUTPUT_DEF_FROM_DECLS,
ASM_FINISH_DECLARE_OBJECT): Likewise.
* arm/thumb.c (thumb_function_prologue): Likewise.
* arm/thumb.h (ASM_OUTPUT_ASCII): Likewise.
* avr/avr.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* clipper/clix.h (ASM_OUTPUT_ASCII): Likewise.
* fx80/fx80.h (ASM_OUTPUT_ASCII): Likewise.
* i386/cygwin.h (ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/freebsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* i386/i386-interix.h (ASM_OUTPUT_LIMITED_STRING,
ASM_OUTPUT_ASCII, ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/i386-protos.h (asm_output_function_prefix): Likewise.
* i386/i386.c (asm_output_function_prefix): Likewise.
* i386/i386elf.h (ASM_OUTPUT_ASCII): Likewise.
* i386/osfrose.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* i386/ptx4-i.h (ASM_OUTPUT_ASCII): Likewise.
* i386/sco5.h (ASM_FINISH_DECLARE_OBJECT,
ASM_OUTPUT_LIMITED_STRING, ASM_OUTPUT_ASCII,
ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/sysv4.h (ASM_OUTPUT_ASCII): Likewise.
* i860/paragon.h (ASM_OUTPUT_ASCII): Likewise.
* i860/sysv3.h (ASM_OUTPUT_ASCII): Likewise.
* m32r/m32r.c (m32r_encode_section_info): Likewise.
* mcore-elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mcore/mcore.c (mcore_encode_section_info): Likewise.
* mips/elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/elf64.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/iris6.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/mips.h (ASM_OUTPUT_IDENT): Likewise.
* mips/mips.md (movdi, movsi): Likewise.
* mips/netbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* netbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* openbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* ptx4.h (ASM_FINISH_DECLARE_OBJECT, ASM_OUTPUT_LIMITED_STRING,
ASM_OUTPUT_ASCII): Likewise.
* rs6000/rs6000.c (rs6000_allocate_stack_space, output_epilog,
output_mi_thunk, output_toc): Likewise.
* rs6000/rs6000.md (movsi): Likewise.
* rs6000/sysv4.h (ASM_OUTPUT_INT, ASM_OUTPUT_SECTION_NAME): Likewise.
* tahoe/harris.h (ASM_OUTPUT_ASCII): Likewise.
* v850/v850.c (print_operand, print_operand_address,
v850_encode_data_area): Likewise.
ch:
* grant.c (globalize_decl): Constify a char*.
cp:
* decl2.c (finish_objects): Constify a char*.
* method.c (emit_thunk): Likewise.
From-SVN: r32388
2000-03-07 21:39:10 +01:00
|
|
|
|
static const char *build_module_descriptor PARAMS ((void));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree init_module_descriptor PARAMS ((tree));
|
|
|
|
|
static tree build_objc_method_call PARAMS ((int, tree, tree,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree, tree, tree));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void generate_strings PARAMS ((void));
|
|
|
|
|
static tree get_proto_encoding PARAMS ((tree));
|
|
|
|
|
static void build_selector_translation_table PARAMS ((void));
|
|
|
|
|
static tree build_ivar_chain PARAMS ((tree, int));
|
|
|
|
|
|
|
|
|
|
static tree objc_add_static_instance PARAMS ((tree, tree));
|
|
|
|
|
|
|
|
|
|
static tree build_ivar_template PARAMS ((void));
|
|
|
|
|
static tree build_method_template PARAMS ((void));
|
|
|
|
|
static tree build_private_template PARAMS ((tree));
|
|
|
|
|
static void build_class_template PARAMS ((void));
|
|
|
|
|
static void build_selector_template PARAMS ((void));
|
|
|
|
|
static void build_category_template PARAMS ((void));
|
|
|
|
|
static tree build_super_template PARAMS ((void));
|
|
|
|
|
static tree build_category_initializer PARAMS ((tree, tree, tree,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree, tree, tree));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree build_protocol_initializer PARAMS ((tree, tree, tree,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree, tree));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void synth_forward_declarations PARAMS ((void));
|
|
|
|
|
static void generate_ivar_lists PARAMS ((void));
|
|
|
|
|
static void generate_dispatch_tables PARAMS ((void));
|
|
|
|
|
static void generate_shared_structures PARAMS ((void));
|
|
|
|
|
static tree generate_protocol_list PARAMS ((tree));
|
|
|
|
|
static void generate_forward_declaration_to_string_table PARAMS ((void));
|
|
|
|
|
static void build_protocol_reference PARAMS ((tree));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1998-06-22 07:46:35 +02:00
|
|
|
|
#if 0
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree init_selector PARAMS ((int));
|
1998-06-22 07:46:35 +02:00
|
|
|
|
#endif
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree build_keyword_selector PARAMS ((tree));
|
|
|
|
|
static tree synth_id_with_class_suffix PARAMS ((const char *, tree));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void generate_static_references PARAMS ((void));
|
|
|
|
|
static int check_methods_accessible PARAMS ((tree, tree,
|
1997-12-12 07:20:41 +01:00
|
|
|
|
int));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void encode_aggregate_within PARAMS ((tree, int, int,
|
1998-04-06 03:05:12 +02:00
|
|
|
|
int, int));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static const char *objc_demangle PARAMS ((const char *));
|
|
|
|
|
static const char *objc_printable_name PARAMS ((tree, int));
|
2000-09-17 09:38:23 +02:00
|
|
|
|
static void objc_expand_function_end PARAMS ((void));
|
1997-12-12 07:20:41 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Misc. bookkeeping */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
typedef struct hashed_entry *hash;
|
|
|
|
|
typedef struct hashed_attribute *attr;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
struct hashed_attribute
|
|
|
|
|
{
|
|
|
|
|
attr next;
|
|
|
|
|
tree value;
|
|
|
|
|
};
|
|
|
|
|
struct hashed_entry
|
|
|
|
|
{
|
|
|
|
|
attr list;
|
|
|
|
|
hash next;
|
|
|
|
|
tree key;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
};
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void hash_init PARAMS ((void));
|
|
|
|
|
static void hash_enter PARAMS ((hash *, tree));
|
|
|
|
|
static hash hash_lookup PARAMS ((hash *, tree));
|
|
|
|
|
static void hash_add_attr PARAMS ((hash, tree));
|
|
|
|
|
static tree lookup_method PARAMS ((tree, tree));
|
|
|
|
|
static tree lookup_instance_method_static PARAMS ((tree, tree));
|
|
|
|
|
static tree lookup_class_method_static PARAMS ((tree, tree));
|
|
|
|
|
static tree add_class PARAMS ((tree));
|
|
|
|
|
static void add_category PARAMS ((tree, tree));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
enum string_section
|
|
|
|
|
{
|
|
|
|
|
class_names, /* class, category, protocol, module names */
|
|
|
|
|
meth_var_names, /* method and variable names */
|
1993-05-09 06:52:03 +02:00
|
|
|
|
meth_var_types /* method and variable type descriptors */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
};
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree add_objc_string PARAMS ((tree,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
enum string_section));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree get_objc_string_decl PARAMS ((tree,
|
1997-12-12 07:20:41 +01:00
|
|
|
|
enum string_section));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree build_objc_string_decl PARAMS ((enum string_section));
|
|
|
|
|
static tree build_selector_reference_decl PARAMS ((void));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Protocol additions. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree add_protocol PARAMS ((tree));
|
|
|
|
|
static tree lookup_protocol PARAMS ((tree));
|
|
|
|
|
static tree lookup_and_install_protocols PARAMS ((tree));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Type encoding. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void encode_type_qualifiers PARAMS ((tree));
|
|
|
|
|
static void encode_pointer PARAMS ((tree, int, int));
|
|
|
|
|
static void encode_array PARAMS ((tree, int, int));
|
|
|
|
|
static void encode_aggregate PARAMS ((tree, int, int));
|
|
|
|
|
static void encode_bitfield PARAMS ((int));
|
|
|
|
|
static void encode_type PARAMS ((tree, int, int));
|
|
|
|
|
static void encode_field_decl PARAMS ((tree, int, int));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void really_start_method PARAMS ((tree, tree));
|
|
|
|
|
static int comp_method_with_proto PARAMS ((tree, tree));
|
|
|
|
|
static int comp_proto_with_proto PARAMS ((tree, tree));
|
|
|
|
|
static tree get_arg_type_list PARAMS ((tree, int, int));
|
|
|
|
|
static tree expr_last PARAMS ((tree));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Utilities for debugging and error diagnostics. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void warn_with_method PARAMS ((const char *, int, tree));
|
|
|
|
|
static void error_with_ivar PARAMS ((const char *, tree, tree));
|
|
|
|
|
static char *gen_method_decl PARAMS ((tree, char *));
|
|
|
|
|
static char *gen_declaration PARAMS ((tree, char *));
|
2001-03-28 04:49:19 +02:00
|
|
|
|
static void gen_declaration_1 PARAMS ((tree, char *));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static char *gen_declarator PARAMS ((tree, char *,
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static int is_complex_decl PARAMS ((tree));
|
|
|
|
|
static void adorn_decl PARAMS ((tree, char *));
|
|
|
|
|
static void dump_interface PARAMS ((FILE *, tree));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Everything else. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree define_decl PARAMS ((tree, tree));
|
|
|
|
|
static tree lookup_method_in_protocol_list PARAMS ((tree, tree, int));
|
|
|
|
|
static tree lookup_protocol_in_reflist PARAMS ((tree, tree));
|
|
|
|
|
static tree create_builtin_decl PARAMS ((enum tree_code,
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
tree, const char *));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree my_build_string PARAMS ((int, const char *));
|
|
|
|
|
static void build_objc_symtab_template PARAMS ((void));
|
|
|
|
|
static tree init_def_list PARAMS ((tree));
|
|
|
|
|
static tree init_objc_symtab PARAMS ((tree));
|
|
|
|
|
static void forward_declare_categories PARAMS ((void));
|
|
|
|
|
static void generate_objc_symtab_decl PARAMS ((void));
|
|
|
|
|
static tree build_selector PARAMS ((tree));
|
1998-06-29 19:36:07 +02:00
|
|
|
|
#if 0
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree build_msg_pool_reference PARAMS ((int));
|
1998-06-29 19:36:07 +02:00
|
|
|
|
#endif
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree build_typed_selector_reference PARAMS ((tree, tree));
|
|
|
|
|
static tree build_selector_reference PARAMS ((tree));
|
|
|
|
|
static tree build_class_reference_decl PARAMS ((void));
|
|
|
|
|
static void add_class_reference PARAMS ((tree));
|
|
|
|
|
static tree objc_copy_list PARAMS ((tree, tree *));
|
|
|
|
|
static tree build_protocol_template PARAMS ((void));
|
|
|
|
|
static tree build_descriptor_table_initializer PARAMS ((tree, tree));
|
|
|
|
|
static tree build_method_prototype_list_template PARAMS ((tree, int));
|
|
|
|
|
static tree build_method_prototype_template PARAMS ((void));
|
|
|
|
|
static int forwarding_offset PARAMS ((tree));
|
|
|
|
|
static tree encode_method_prototype PARAMS ((tree, tree));
|
|
|
|
|
static tree generate_descriptor_table PARAMS ((tree, const char *,
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
int, tree, tree));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void generate_method_descriptors PARAMS ((tree));
|
|
|
|
|
static tree build_tmp_function_decl PARAMS ((void));
|
|
|
|
|
static void hack_method_prototype PARAMS ((tree, tree));
|
|
|
|
|
static void generate_protocol_references PARAMS ((tree));
|
|
|
|
|
static void generate_protocols PARAMS ((void));
|
|
|
|
|
static void check_ivars PARAMS ((tree, tree));
|
|
|
|
|
static tree build_ivar_list_template PARAMS ((tree, int));
|
|
|
|
|
static tree build_method_list_template PARAMS ((tree, int));
|
|
|
|
|
static tree build_ivar_list_initializer PARAMS ((tree, tree));
|
|
|
|
|
static tree generate_ivars_list PARAMS ((tree, const char *,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
int, tree));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree build_dispatch_table_initializer PARAMS ((tree, tree));
|
|
|
|
|
static tree generate_dispatch_table PARAMS ((tree, const char *,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
int, tree));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree build_shared_structure_initializer PARAMS ((tree, tree, tree, tree,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree, int, tree, tree,
|
|
|
|
|
tree));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void generate_category PARAMS ((tree));
|
|
|
|
|
static int is_objc_type_qualifier PARAMS ((tree));
|
|
|
|
|
static tree adjust_type_for_id_default PARAMS ((tree));
|
|
|
|
|
static tree check_duplicates PARAMS ((hash));
|
|
|
|
|
static tree receiver_is_class_object PARAMS ((tree));
|
|
|
|
|
static int check_methods PARAMS ((tree, tree, int));
|
|
|
|
|
static int conforms_to_protocol PARAMS ((tree, tree));
|
|
|
|
|
static void check_protocols PARAMS ((tree, const char *,
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *));
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static tree encode_method_def PARAMS ((tree));
|
|
|
|
|
static void gen_declspecs PARAMS ((tree, char *, int));
|
|
|
|
|
static void generate_classref_translation_entry PARAMS ((tree));
|
|
|
|
|
static void handle_class_ref PARAMS ((tree));
|
|
|
|
|
static void generate_struct_by_value_array PARAMS ((void))
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
ATTRIBUTE_NORETURN;
|
2000-04-12 09:22:32 +02:00
|
|
|
|
static void objc_act_parse_init PARAMS ((void));
|
bb-reorder.c (get_next_bb_note, [...]): Prototype.
* bb-reorder.c (get_next_bb_note, get_prev_bb_note): Prototype.
* diagnostic (vbuild_message_string, build_message_string,
build_location_prefix, output_get_prefix, init_output_buffer,
output_notice, vline_wrapper_message_with_location,
v_message_with_decl, default_print_error_function): De-constify.
(set_real_maximum_length): Prototype.
* diagnostic.h (struct output_buffer, init_output_buffer,
output_get_prefix, output_set_prefix): De-constify.
* function.c (init_function_start): Constify.
* gensupport.c (remove_constraints, process_rtx): Prototype.
* gthr-posix.h: Indent uses of #pragma.
* objc/objc-act.c (ggc_mark_imp_list, ggc_mark_hash_table):
Prototype.
* predict.c (find_expected_value): Delete prototype.
(expected_value_to_br_prob): Initialize variable `ev_reg'.
* sbitmap.h (debug_sbitmap): Prototype.
* ssa.c (compute_coalesced_reg_partition): Prototype.
* stor-layout.c (debug_rli): Prototype.
* tree.h (round_down): Prototype.
(init_function_start): Constify.
ch:
* ch-tree.h (init_function_start): Constify.
From-SVN: r33675
2000-05-04 19:58:40 +02:00
|
|
|
|
static void ggc_mark_imp_list PARAMS ((void *));
|
|
|
|
|
static void ggc_mark_hash_table PARAMS ((void *));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/*** Private Interface (data) ***/
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Reserved tag definitions. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
#define TYPE_ID "id"
|
|
|
|
|
#define TAG_OBJECT "objc_object"
|
|
|
|
|
#define TAG_CLASS "objc_class"
|
|
|
|
|
#define TAG_SUPER "objc_super"
|
|
|
|
|
#define TAG_SELECTOR "objc_selector"
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
#define UTAG_CLASS "_objc_class"
|
|
|
|
|
#define UTAG_IVAR "_objc_ivar"
|
|
|
|
|
#define UTAG_IVAR_LIST "_objc_ivar_list"
|
|
|
|
|
#define UTAG_METHOD "_objc_method"
|
|
|
|
|
#define UTAG_METHOD_LIST "_objc_method_list"
|
|
|
|
|
#define UTAG_CATEGORY "_objc_category"
|
|
|
|
|
#define UTAG_MODULE "_objc_module"
|
1995-04-27 01:18:37 +02:00
|
|
|
|
#define UTAG_STATICS "_objc_statics"
|
1993-04-10 01:12:37 +02:00
|
|
|
|
#define UTAG_SYMTAB "_objc_symtab"
|
|
|
|
|
#define UTAG_SUPER "_objc_super"
|
1994-06-30 18:17:36 +02:00
|
|
|
|
#define UTAG_SELECTOR "_objc_selector"
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
#define UTAG_PROTOCOL "_objc_protocol"
|
|
|
|
|
#define UTAG_PROTOCOL_LIST "_objc_protocol_list"
|
|
|
|
|
#define UTAG_METHOD_PROTOTYPE "_objc_method_prototype"
|
|
|
|
|
#define UTAG_METHOD_PROTOTYPE_LIST "_objc__method_prototype_list"
|
|
|
|
|
|
|
|
|
|
#define STRING_OBJECT_CLASS_NAME "NXConstantString"
|
|
|
|
|
#define PROTOCOL_OBJECT_CLASS_NAME "Protocol"
|
|
|
|
|
|
2000-08-06 09:54:40 +02:00
|
|
|
|
static const char *constant_string_class_name = NULL;
|
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
static const char *TAG_GETCLASS;
|
|
|
|
|
static const char *TAG_GETMETACLASS;
|
|
|
|
|
static const char *TAG_MSGSEND;
|
|
|
|
|
static const char *TAG_MSGSENDSUPER;
|
|
|
|
|
static const char *TAG_EXECCLASS;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* Set by `continue_class' and checked by `is_public'. */
|
|
|
|
|
|
|
|
|
|
#define TREE_STATIC_TEMPLATE(record_type) (TREE_PUBLIC (record_type))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
#define TYPED_OBJECT(type) \
|
|
|
|
|
(TREE_CODE (type) == RECORD_TYPE && TREE_STATIC_TEMPLATE (type))
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
tree objc_ellipsis_node;
|
|
|
|
|
|
|
|
|
|
enum objc_tree_index
|
|
|
|
|
{
|
|
|
|
|
OCTI_STATIC_NST,
|
|
|
|
|
OCTI_STATIC_NST_DECL,
|
|
|
|
|
OCTI_SELF_ID,
|
|
|
|
|
OCTI_UCMD_ID,
|
|
|
|
|
OCTI_UNUSED_LIST,
|
|
|
|
|
OCTI_SELF_DECL,
|
|
|
|
|
OCTI_UMSG_DECL,
|
|
|
|
|
OCTI_UMSG_SUPER_DECL,
|
|
|
|
|
OCTI_GET_CLASS_DECL,
|
|
|
|
|
OCTI_GET_MCLASS_DECL,
|
|
|
|
|
OCTI_SUPER_TYPE,
|
|
|
|
|
OCTI_SEL_TYPE,
|
|
|
|
|
OCTI_ID_TYPE,
|
|
|
|
|
OCTI_CLS_TYPE,
|
|
|
|
|
OCTI_NST_TYPE,
|
|
|
|
|
OCTI_PROTO_TYPE,
|
|
|
|
|
|
|
|
|
|
OCTI_CLS_CHAIN,
|
|
|
|
|
OCTI_ALIAS_CHAIN,
|
|
|
|
|
OCTI_INTF_CHAIN,
|
|
|
|
|
OCTI_PROTO_CHAIN,
|
|
|
|
|
OCTI_CLS_REF_CHAIN,
|
|
|
|
|
OCTI_SEL_REF_CHAIN,
|
|
|
|
|
OCTI_CLS_NAMES_CHAIN,
|
|
|
|
|
OCTI_METH_VAR_NAMES_CHAIN,
|
|
|
|
|
OCTI_METH_VAR_TYPES_CHAIN,
|
|
|
|
|
|
|
|
|
|
OCTI_SYMBOLS_DECL,
|
|
|
|
|
OCTI_NST_VAR_DECL,
|
|
|
|
|
OCTI_CLS_VAR_DECL,
|
|
|
|
|
OCTI_NST_METH_DECL,
|
|
|
|
|
OCTI_CLS_METH_DECL,
|
|
|
|
|
OCTI_CLS_DECL,
|
|
|
|
|
OCTI_MCLS_DECL,
|
|
|
|
|
OCTI_SEL_TABLE_DECL,
|
|
|
|
|
OCTI_MODULES_DECL,
|
|
|
|
|
OCTI_STRG_DECL,
|
|
|
|
|
|
|
|
|
|
OCTI_IMPL_CTX,
|
|
|
|
|
OCTI_IMPL_TEMPL,
|
|
|
|
|
|
|
|
|
|
OCTI_CLS_TEMPL,
|
|
|
|
|
OCTI_CAT_TEMPL,
|
|
|
|
|
OCTI_UPRIV_REC,
|
|
|
|
|
OCTI_PROTO_TEMPL,
|
|
|
|
|
OCTI_SEL_TEMPL,
|
|
|
|
|
OCTI_UCLS_SUPER_REF,
|
|
|
|
|
OCTI_UUCLS_SUPER_REF,
|
|
|
|
|
OCTI_METH_TEMPL,
|
|
|
|
|
OCTI_IVAR_TEMPL,
|
|
|
|
|
OCTI_SYMTAB_TEMPL,
|
|
|
|
|
OCTI_MODULE_TEMPL,
|
|
|
|
|
OCTI_SUPER_TEMPL,
|
|
|
|
|
OCTI_OBJ_REF,
|
|
|
|
|
OCTI_OBJ_ID,
|
|
|
|
|
OCTI_CLS_ID,
|
|
|
|
|
OCTI_ID_ID,
|
|
|
|
|
OCTI_CNST_STR_ID,
|
|
|
|
|
OCTI_CNST_STR_TYPE,
|
|
|
|
|
OCTI_SUPER_DECL,
|
|
|
|
|
OCTI_METH_CTX,
|
|
|
|
|
|
|
|
|
|
OCTI_MAX
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static tree objc_global_trees[OCTI_MAX];
|
|
|
|
|
|
|
|
|
|
/* List of classes with list of their static instances. */
|
|
|
|
|
#define objc_static_instances objc_global_trees[OCTI_STATIC_NST]
|
|
|
|
|
|
|
|
|
|
/* The declaration of the array administrating the static instances. */
|
|
|
|
|
#define static_instances_decl objc_global_trees[OCTI_STATIC_NST_DECL]
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Some commonly used instances of "identifier_node". */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define self_id objc_global_trees[OCTI_SELF_ID]
|
|
|
|
|
#define ucmd_id objc_global_trees[OCTI_UCMD_ID]
|
|
|
|
|
#define unused_list objc_global_trees[OCTI_UNUSED_LIST]
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define self_decl objc_global_trees[OCTI_SELF_DECL]
|
|
|
|
|
#define umsg_decl objc_global_trees[OCTI_UMSG_DECL]
|
|
|
|
|
#define umsg_super_decl objc_global_trees[OCTI_UMSG_SUPER_DECL]
|
|
|
|
|
#define objc_get_class_decl objc_global_trees[OCTI_GET_CLASS_DECL]
|
|
|
|
|
#define objc_get_meta_class_decl \
|
|
|
|
|
objc_global_trees[OCTI_GET_MCLASS_DECL]
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define super_type objc_global_trees[OCTI_SUPER_TYPE]
|
|
|
|
|
#define selector_type objc_global_trees[OCTI_SEL_TYPE]
|
|
|
|
|
#define id_type objc_global_trees[OCTI_ID_TYPE]
|
|
|
|
|
#define objc_class_type objc_global_trees[OCTI_CLS_TYPE]
|
|
|
|
|
#define instance_type objc_global_trees[OCTI_NST_TYPE]
|
|
|
|
|
#define protocol_type objc_global_trees[OCTI_PROTO_TYPE]
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
/* Type checking macros. */
|
|
|
|
|
|
|
|
|
|
#define IS_ID(TYPE) \
|
|
|
|
|
(TYPE_MAIN_VARIANT (TYPE) == TYPE_MAIN_VARIANT (id_type))
|
|
|
|
|
#define IS_PROTOCOL_QUALIFIED_ID(TYPE) \
|
|
|
|
|
(IS_ID (TYPE) && TYPE_PROTOCOL_LIST (TYPE))
|
|
|
|
|
#define IS_SUPER(TYPE) \
|
|
|
|
|
(super_type && TYPE_MAIN_VARIANT (TYPE) == TYPE_MAIN_VARIANT (super_type))
|
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define class_chain objc_global_trees[OCTI_CLS_CHAIN]
|
|
|
|
|
#define alias_chain objc_global_trees[OCTI_ALIAS_CHAIN]
|
|
|
|
|
#define interface_chain objc_global_trees[OCTI_INTF_CHAIN]
|
|
|
|
|
#define protocol_chain objc_global_trees[OCTI_PROTO_CHAIN]
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Chains to manage selectors that are referenced and defined in the
|
|
|
|
|
module. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define cls_ref_chain objc_global_trees[OCTI_CLS_REF_CHAIN] /* Classes referenced. */
|
|
|
|
|
#define sel_ref_chain objc_global_trees[OCTI_SEL_REF_CHAIN] /* Selectors referenced. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Chains to manage uniquing of strings. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define class_names_chain objc_global_trees[OCTI_CLS_NAMES_CHAIN]
|
|
|
|
|
#define meth_var_names_chain objc_global_trees[OCTI_METH_VAR_NAMES_CHAIN]
|
|
|
|
|
#define meth_var_types_chain objc_global_trees[OCTI_METH_VAR_TYPES_CHAIN]
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Hash tables to manage the global pool of method prototypes. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static hash *nst_method_hash_list = 0;
|
|
|
|
|
static hash *cls_method_hash_list = 0;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Backend data declarations. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define UOBJC_SYMBOLS_decl objc_global_trees[OCTI_SYMBOLS_DECL]
|
|
|
|
|
#define UOBJC_INSTANCE_VARIABLES_decl objc_global_trees[OCTI_NST_VAR_DECL]
|
|
|
|
|
#define UOBJC_CLASS_VARIABLES_decl objc_global_trees[OCTI_CLS_VAR_DECL]
|
|
|
|
|
#define UOBJC_INSTANCE_METHODS_decl objc_global_trees[OCTI_NST_METH_DECL]
|
|
|
|
|
#define UOBJC_CLASS_METHODS_decl objc_global_trees[OCTI_CLS_METH_DECL]
|
|
|
|
|
#define UOBJC_CLASS_decl objc_global_trees[OCTI_CLS_DECL]
|
|
|
|
|
#define UOBJC_METACLASS_decl objc_global_trees[OCTI_MCLS_DECL]
|
|
|
|
|
#define UOBJC_SELECTOR_TABLE_decl objc_global_trees[OCTI_SEL_TABLE_DECL]
|
|
|
|
|
#define UOBJC_MODULES_decl objc_global_trees[OCTI_MODULES_DECL]
|
|
|
|
|
#define UOBJC_STRINGS_decl objc_global_trees[OCTI_STRG_DECL]
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* The following are used when compiling a class implementation.
|
|
|
|
|
implementation_template will normally be an interface, however if
|
|
|
|
|
none exists this will be equal to implementation_context...it is
|
|
|
|
|
set in start_class. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define implementation_context objc_global_trees[OCTI_IMPL_CTX]
|
|
|
|
|
#define implementation_template objc_global_trees[OCTI_IMPL_TEMPL]
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
struct imp_entry
|
|
|
|
|
{
|
1992-01-18 00:15:38 +01:00
|
|
|
|
struct imp_entry *next;
|
|
|
|
|
tree imp_context;
|
|
|
|
|
tree imp_template;
|
|
|
|
|
tree class_decl; /* _OBJC_CLASS_<my_name>; */
|
|
|
|
|
tree meta_decl; /* _OBJC_METACLASS_<my_name>; */
|
|
|
|
|
};
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-01-12 23:47:13 +01:00
|
|
|
|
static void handle_impent PARAMS ((struct imp_entry *));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static struct imp_entry *imp_list = 0;
|
|
|
|
|
static int imp_count = 0; /* `@implementation' */
|
|
|
|
|
static int cat_count = 0; /* `@category' */
|
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
#define objc_class_template objc_global_trees[OCTI_CLS_TEMPL]
|
|
|
|
|
#define objc_category_template objc_global_trees[OCTI_CAT_TEMPL]
|
|
|
|
|
#define uprivate_record objc_global_trees[OCTI_UPRIV_REC]
|
|
|
|
|
#define objc_protocol_template objc_global_trees[OCTI_PROTO_TEMPL]
|
|
|
|
|
#define objc_selector_template objc_global_trees[OCTI_SEL_TEMPL]
|
|
|
|
|
#define ucls_super_ref objc_global_trees[OCTI_UCLS_SUPER_REF]
|
|
|
|
|
#define uucls_super_ref objc_global_trees[OCTI_UUCLS_SUPER_REF]
|
|
|
|
|
|
|
|
|
|
#define objc_method_template objc_global_trees[OCTI_METH_TEMPL]
|
|
|
|
|
#define objc_ivar_template objc_global_trees[OCTI_IVAR_TEMPL]
|
|
|
|
|
#define objc_symtab_template objc_global_trees[OCTI_SYMTAB_TEMPL]
|
|
|
|
|
#define objc_module_template objc_global_trees[OCTI_MODULE_TEMPL]
|
|
|
|
|
#define objc_super_template objc_global_trees[OCTI_SUPER_TEMPL]
|
|
|
|
|
#define objc_object_reference objc_global_trees[OCTI_OBJ_REF]
|
|
|
|
|
|
|
|
|
|
#define objc_object_id objc_global_trees[OCTI_OBJ_ID]
|
|
|
|
|
#define objc_class_id objc_global_trees[OCTI_CLS_ID]
|
|
|
|
|
#define objc_id_id objc_global_trees[OCTI_ID_ID]
|
|
|
|
|
#define constant_string_id objc_global_trees[OCTI_CNST_STR_ID]
|
|
|
|
|
#define constant_string_type objc_global_trees[OCTI_CNST_STR_TYPE]
|
|
|
|
|
#define UOBJC_SUPER_decl objc_global_trees[OCTI_SUPER_DECL]
|
|
|
|
|
|
|
|
|
|
#define method_context objc_global_trees[OCTI_METH_CTX]
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
static int method_slot = 0; /* Used by start_method_def, */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
#define BUFSIZE 1024
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
static char *errbuf; /* Buffer for error diagnostics */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Data imported from tree.c. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
extern enum debug_info_type write_symbols;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Data imported from toplev.c. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
extern const char *dump_base_name;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Generate code for GNU or NeXT runtime environment. */
|
|
|
|
|
|
|
|
|
|
#ifdef NEXT_OBJC_RUNTIME
|
|
|
|
|
int flag_next_runtime = 1;
|
|
|
|
|
#else
|
|
|
|
|
int flag_next_runtime = 0;
|
|
|
|
|
#endif
|
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
int flag_typed_selectors;
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
/* Open and close the file for outputting class declarations, if requested. */
|
|
|
|
|
|
|
|
|
|
int flag_gen_declaration = 0;
|
|
|
|
|
|
|
|
|
|
FILE *gen_declaration_file;
|
|
|
|
|
|
|
|
|
|
/* Warn if multiple methods are seen for the same selector, but with
|
1996-07-04 00:07:53 +02:00
|
|
|
|
different argument types. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
int warn_selector = 0;
|
|
|
|
|
|
1993-04-13 14:57:23 +02:00
|
|
|
|
/* Warn if methods required by a protocol are not implemented in the
|
|
|
|
|
class adopting it. When turned off, methods inherited to that
|
|
|
|
|
class are also considered implemented */
|
|
|
|
|
|
|
|
|
|
int flag_warn_protocol = 1;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Tells "encode_pointer/encode_aggregate" whether we are generating
|
1993-04-10 01:12:37 +02:00
|
|
|
|
type descriptors for instance variables (as opposed to methods).
|
|
|
|
|
Type descriptors for instance variables contain more information
|
|
|
|
|
than methods (for static typing and embedded structures). This
|
1996-07-04 00:07:53 +02:00
|
|
|
|
was added to support features being planned for dbkit2. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
static int generating_instance_variables = 0;
|
|
|
|
|
|
1997-12-12 07:20:41 +01:00
|
|
|
|
/* Tells the compiler that this is a special run. Do not perform
|
|
|
|
|
any compiling, instead we are to test some platform dependent
|
|
|
|
|
features and output a C header file with appropriate definitions. */
|
|
|
|
|
|
|
|
|
|
static int print_struct_values = 0;
|
|
|
|
|
|
2001-01-07 04:34:28 +01:00
|
|
|
|
/* Each front end provides its own. */
|
2001-01-09 11:54:01 +01:00
|
|
|
|
struct lang_hooks lang_hooks = {objc_init,
|
|
|
|
|
NULL, /* objc_finish */
|
2001-01-10 08:51:11 +01:00
|
|
|
|
objc_init_options,
|
|
|
|
|
objc_decode_option,
|
2001-01-09 11:54:01 +01:00
|
|
|
|
objc_post_options};
|
2001-01-07 04:34:28 +01:00
|
|
|
|
|
|
|
|
|
/* Post-switch processing. */
|
|
|
|
|
static void
|
|
|
|
|
objc_post_options ()
|
|
|
|
|
{
|
2001-01-07 16:17:07 +01:00
|
|
|
|
cpp_post_options (parse_in);
|
2001-01-07 04:34:28 +01:00
|
|
|
|
}
|
|
|
|
|
|
1997-12-12 07:20:41 +01:00
|
|
|
|
/* Some platforms pass small structures through registers versus through
|
|
|
|
|
an invisible pointer. Determine at what size structure is the
|
|
|
|
|
transition point between the two possibilities. */
|
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
static void
|
1997-12-12 07:20:41 +01:00
|
|
|
|
generate_struct_by_value_array ()
|
|
|
|
|
{
|
|
|
|
|
tree type;
|
|
|
|
|
tree field_decl, field_decl_chain;
|
|
|
|
|
int i, j;
|
|
|
|
|
int aggregate_in_mem[32];
|
|
|
|
|
int found = 0;
|
|
|
|
|
|
|
|
|
|
/* Presumbaly no platform passes 32 byte structures in a register. */
|
|
|
|
|
for (i = 1; i < 32; i++)
|
|
|
|
|
{
|
|
|
|
|
char buffer[5];
|
|
|
|
|
|
|
|
|
|
/* Create an unnamed struct that has `i' character components */
|
|
|
|
|
type = start_struct (RECORD_TYPE, NULL_TREE);
|
|
|
|
|
|
|
|
|
|
strcpy (buffer, "c1");
|
|
|
|
|
field_decl = create_builtin_decl (FIELD_DECL,
|
|
|
|
|
char_type_node,
|
|
|
|
|
buffer);
|
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
for (j = 1; j < i; j++)
|
|
|
|
|
{
|
|
|
|
|
sprintf (buffer, "c%d", j + 1);
|
|
|
|
|
field_decl = create_builtin_decl (FIELD_DECL,
|
|
|
|
|
char_type_node,
|
|
|
|
|
buffer);
|
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
}
|
|
|
|
|
finish_struct (type, field_decl_chain, NULL_TREE);
|
|
|
|
|
|
|
|
|
|
aggregate_in_mem[i] = aggregate_value_p (type);
|
|
|
|
|
if (!aggregate_in_mem[i])
|
|
|
|
|
found = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* We found some structures that are returned in registers instead of memory
|
|
|
|
|
so output the necessary data. */
|
|
|
|
|
if (found)
|
|
|
|
|
{
|
|
|
|
|
for (i = 31; i >= 0; i--)
|
|
|
|
|
if (!aggregate_in_mem[i])
|
|
|
|
|
break;
|
|
|
|
|
printf ("#define OBJC_MAX_STRUCT_BY_VALUE %d\n\n", i);
|
|
|
|
|
|
|
|
|
|
/* The first member of the structure is always 0 because we don't handle
|
|
|
|
|
structures with 0 members */
|
|
|
|
|
printf ("static int struct_forward_array[] = {\n 0");
|
|
|
|
|
|
|
|
|
|
for (j = 1; j <= i; j++)
|
|
|
|
|
printf (", %d", aggregate_in_mem[j]);
|
|
|
|
|
printf ("\n};\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
exit (0);
|
|
|
|
|
}
|
|
|
|
|
|
2001-01-10 08:51:11 +01:00
|
|
|
|
static void
|
|
|
|
|
objc_init_options ()
|
1998-06-07 16:06:47 +02:00
|
|
|
|
{
|
2000-11-29 23:19:28 +01:00
|
|
|
|
parse_in = cpp_create_reader (CLK_OBJC);
|
|
|
|
|
c_language = clk_objective_c;
|
1998-06-07 16:06:47 +02:00
|
|
|
|
}
|
|
|
|
|
|
2001-01-09 11:54:01 +01:00
|
|
|
|
static void
|
|
|
|
|
objc_init ()
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
Integrated preprocessor.
top level:
* Makefile.in: Remove all references to c-parse.gperf,
c-gperf.h, and c-parse.h. Remove -d from yacc command line
generating c-parse.c. Update dependencies.
* c-parse.gperf, c-gperf.h: Delete.
* c-common.c: Don't define parse_options, cpp_token, yy_cur,
yy_lim, or yy_get_token. Don't define get_directive_line if
USE_CPPLIB.
* c-common.h: Add multiple include guard. Define RID values
for every keyword in C, C++, and Objective C. Put all the
modifiers first.
(struct c_fileinfo, get_fileinfo, dump_time_statistics): New.
* c-decl.c (c_decode_option): Handle -lang-objc here.
(print_lang_identifier): Handle C_IS_RESERVED_WORD case.
(grokdeclarator): Adjust for new RID scheme.
(extract_interface_info): New stub.
* c-lang.c: Don't declare yy_cur or parse_options.
(lang_init_options): Call cpp_init. Don't call
cpp_options_init.
(lang_init): Don't call check_newline if USE_CPPLIB.
* c-lex.c: Don't include c-parse.h. Do include timevar.h.
Elide lots of unnecessary code if USE_CPPLIB. Delete code
rendered unnecessary by new architecture. Move routines not
shared with C++ to c-parse.in. Maintain a local idea of the
line number. Handle C++ as well as C.
[USE_CPPLIB]: Declare and register callbacks for #ident and
for entering/leaving files.
(init_c_lex, c_lex): Are now the entry points to this file.
(check_newline): Break out directive handling to
process_directive.
(read_ucs, is_extended_char, utf8_extend_token): Moved here
from C++ front end.
(readescape, parse_float): Overhaul.
(lex_number, lex_string, lex_charconst): Break out of c_lex
(n'ee yylex).
(get_fileinfo, update_header_times, dump_one_header,
dump_time_statistics): New and/or moved here from C++.
Support per-file data needed by C++ and per-header timing
statistics (C++ only, at the moment).
* c-lex.h: Update prototypes. Add multiple include guard.
* c-tree.h (struct lang_identifier): Add rid_code field.
(C_IS_RESERVED_WORD, C_RID_CODE): New.
* c-parse.in: Include c-pragma.h. Remove unnecesary calls to
reinit_parse_for_function and/or position_after_white_space.
(save_filename, save_lineno): Look ahead before saving.
(label -> identifier ':'): Save file and line before shifting ':'.
(reservedwords): No need to call get_identifier.
(init_parse, finish_parse, yyerror, yylex, yyprint,
make_pointer_declarator): Are now here for C/ObjC.
(rid_to_yy): Conversion table from RID constants to Yacc codes.
* c-pragma.c: Rewrite parsing logic to fit with cpplib's
#pragma registry. Provide dummy implementation of that
interface if !USE_CPPLIB.
* c-pragma.h: Update to match.
* flags.h: Add multiple include guard.
(flag_detailed_statistics): Moved here from C++.
* toplev.c: Define flag_detailed_statistics.
* gcc.c (C specs): Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* timevar.def (TV_CPP, TV_LEX): New.
* timevar.h: Add multiple include guard.
* objc/lang-specs.h: Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* objc/objc-act.c: Don't mention yy_cur or parse_options.
Initialize cpplib properly. Force lineno to 0 after first
call to check_newline. Don't handle -lang-objc here.
Move forget_protocol_qualifiers and remember_protocol_qualifiers here.
cp:
* Make-lang.in, Makefile.in: Remove all references to input.c,
gxx.gperf, and hash.h. Add ../c-lex.o to C_OBJS.
* gxx.gperf, hash.h, input.c: Delete.
* lang-specs.h: Pass -lang-c++ to cc1plus so cpplib is
initialized properly.
* class.c (fixup_pending_inline): Take a tree, not a
struct pending_inline *. All callers changed.
(init_class_processing): Set RID_PUBLIC, RID_PRIVATE,
RID_PROTECTED entries in ridpointers[] array here.
* decl.c (duplicate_decls): Do not refer to struct
pending_inline.
(record_builtin_type, init_decl_processing): Use RID_MAX not
CP_RID_MAX.
(grokdeclarator): Use C_IS_RESERVED_WORD.
* decl2.c (lang_decode_option): Ignore -lang-c++ for sake of
cpplib.
(grok_x_components): Do not inspect pending_inlines chain.
* cp-tree.h (struct lang_identifier): Add rid_code entry.
(C_IS_RESERVED_WORD, C_RID_CODE, C_RID_YYCODE): New.
(flag_no_gnu_keywords, flag_operator_names, rid_to_yy): Declare.
(DEFARG_LENGTH, struct pending_inline, TIME_IDENTIFIER_TIME,
TIME_IDENTIFIER_FILEINFO): Kill.
Update prototypes.
* lex.h: Expunge cp_rid. Rewrite RIDBIT macros to use just a
single 32-bit word.
* parse.y: Call do_pending_inlines unconditionally.
reinit_parse_for_method is now snarf_method. fn.defpen is no
longer necessary. Remove unnecessary <itype> annotation on
SCOPE. Do not refer to end_of_file or struct pending_inline.
* semantics.c (begin_inline_definitions): Call
do_pending_inlines unconditionally.
* lex.c: Remove all code now shared with C front end.
Initialize cpplib properly if USE_CPPLIB. Put reserved words
into the get_identifier table. Rewrite pragma handling to
work with the registry. Move code to save tokens for later
processing to spew.c.
* spew.c: Rewrite everything in terms of token streams instead
of text. Move routines here from lex.c / input.c as
appropriate. GC-mark trees hanging off the pending inlines
chain.
testsuite:
* g++.old-deja/g++.benjamin/13478.C: Put meaningful tags on
ERROR markers.
* g++.old-deja/g++.brendan/crash8.C: Move ERROR marker up one line.
* gcc.dg/c99-array-nonobj-1.c: Don't expect func[] cases to fail.
* gcc.dg/wtr-label-1.c: Don't use unconstrained .* in error regexps.
* gcc.dg/wtr-suffix-1.c: Correct error regexps.
* gcc.dg/cpp/unc1.c, gcc.dg/cpp/unc2.c, gcc.dg/cpp/unc3.c:
Preprocess only.
* gcc.dg/cpp/unc4.c: Adjust line number in dg-error line.
* gcc.dg/noncompile/const-ll-1.c: Generalize error regexp.
From-SVN: r36216
2000-09-07 02:37:14 +02:00
|
|
|
|
/* Force the line number back to 0; check_newline will have
|
|
|
|
|
raised it to 1, which will make the builtin functions appear
|
|
|
|
|
not to be built in. */
|
|
|
|
|
lineno = 0;
|
1994-11-10 21:04:44 +01:00
|
|
|
|
|
2001-01-03 21:56:22 +01:00
|
|
|
|
c_common_lang_init ();
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
/* If gen_declaration desired, open the output file. */
|
|
|
|
|
if (flag_gen_declaration)
|
|
|
|
|
{
|
2001-03-28 04:49:19 +02:00
|
|
|
|
register char * const dumpname = concat (dump_base_name, ".decl", NULL);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
gen_declaration_file = fopen (dumpname, "w");
|
|
|
|
|
if (gen_declaration_file == 0)
|
diagnostic.h (set_internal_error_function): Renamed.
* diagnostic.h (set_internal_error_function): Renamed.
* toplev.h (internal_error): Renamed from fatal.
(pfatal_with_name): Deleted.
(fatal_io_error): Now has printf-style arguments.
* diagnostic.c (pfatal_with_name): Deleted.
(fatal_io_error): Rework to have args in printf-style.
(set_internal_error_function): Renamed from set_fatal_function.
(internal_error): Renamed from fatal.
(error_recursion, fancy_abort): Call internal_error instead of fatal.
* dwarf2out.c (get_cfa_from_loc_descr): Likewise.
* emit-rtl.c (gen_realpart, gen_imagpart): Likewise.
* expr.c (check_max_integer_computation_mode, expand_expr): Likewise.
* flow.c (verify_flow_info): Likewise.
* config/arm/arm.c (thumb_unexpanded_epilogue): Likewise.
* config/mips/mips.c (save_restore_insns): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
(dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/expr.c (java_lang_expand_expr): Likewise.
* java/jcf-parse.c (get_constant): Likewise.
* java/mangle.c (java_mangle_decl): Likewise.
* java/parse.y (make_nested_class_name, java_complete_lhs): Likewise.
(operator_string): Likewise.
* except.c (duplicate_eh_handlers): Call abort instead of fatal.
* flow.c (verify_flow_info): Likewise.
* ch/convert.c (convert): Likewise.
* ch/except.c (pop_handler, chill_check_no_handlers): Likewise.
* ch/expr.c (chill_expand_expr): Likewise.
* ch/parse.c (peek_token_, pushback_token, require): Likewise.
* config/arm/arm.c (thumb_load_double_from_address): Likewise.
* config/avr/avr.c (pttreg_to_str, unique_section): Likewise.
(avr_normalize_condition): Likewise.
* config/c4x/c4x.c (c4x_emit_libcall, c4x_valid_operands): Likewise.
* config/dsp16xx/dsp16xx.c (dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/class.c (build_class_ref): Likewise.
* java/constants.c (write_constant_pool): Likewise.
* java/decl.c (start_java_method): Likewise.
* java/expr.c (push_type, java_stack_pop, java_stack_swap): Likewise.
(java_stack_dup, encode_newarray_type): Likewise.
(build_java_array_length_access): Likewise.
(build_java_check_indexed_type, expand_java_pushc): Likewise.
(build_java_soft_divmod, build_invokeinterface): Likewise.
* java/java-tree.h (INNER_CLASS_P): Likewise.
* java/jcf-parse.c (parse_signature, get_name_constant): Likewise.
(give_name_to_class, get_class_constant): Likewise.
* java/jcf-write.c (CHECK_PUT, CHECK_OP, get_access_flags): Likewise.
(find_constant_index, generate_bytecode_conditional): Likewise.
(generate_bytecode_insns, perform_relocations): Likewise.
* java/lex.c (java_unget_unicode, java_lex): Likewise.
* java/mangle.c (mangle_type, mangle_record_type): Likewise.
(mangle_pointer_type, mangle_array_type, init_mangling): Likewise.
(finish_mangling): Likewise.
* java/parse.h (MARK_FINAL_PARMS): Likewise.
* java/parse.y (pop_current_osb, unreachable_stmt_error): Likewise.
(obtain_incomplete_type, java_complete_class): Likewise.
(java_check_regular_methods, java_complete_expand_method): Likewise.
(cut_identifier_in_qualified, check_deprecation): Likewise.
(patch_invoke, find_applicable_accessible_methods_list): Likewise.
(java_complete_lhs, lookup_name_in_blocks): Likewise.
(check_final_variable_indirect_assignment, build_unaryop): Likewise.
* java/typeck.c (set_local_type, parse_signature_type): Likewise.
(parse_signature_string, build_java_signature): Likewise;
(set_java_signature): Likewise.
* java/verify.c (type_stack_dup, CHECK_PC_IN_RANGE): Likewise.
* c-parse.in (methoddef): Call fatal_error instead of fatal.
* objc/objc-act.c (build_ivar_chain): Likewise.
* cp/except.c (decl_is_java_type): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
* cp/init.c (build_new_1): Likewise.
* f/com.c (ffecom_init_0): Likewise.
* java/class.c (add_method, build_static_field_ref): Likewise.
* java/expr.c (build_known_method_ref, expand_invoke): Likewise.
* java/jcf-parse.c (get_constant, jcf_parse): Likewise.
* java/lex.c (java_new_new_lexer): Likewise.
* java/jv-scan.c (main): Likewise.
(fatal_error): Renamed from fatal.
* dwarfout.c (dwarfout_init): Call fatal_io_error instead of
pfatal_with_name.
* graph.c (clean_graph_dump_file): Likewise.
* profile.c (init_branch_prob): Likewise.
* ch/grant.c (write_grant_file): Likewise.
* ch/lex.c (init_parse, same_file, yywrap): Likewise.
* f/com.c (init_parse): Likewise.
* java/jcf-parse.c (yyparse): Likewise.
* objc/objc-act.c (objc_init): Likewise.
* java/jcf-parse.c (jcf_parse_source): Call fatal_io_error, not fatal.
(yyparse): Likewise.
* java/jcf-write.c (make_class_file_name, write_classfile): Likewise.
* java/lex.c (java_get_line_col): Likewise.
* hash.c (hash_allocate): Don't check for failure returns from
obstack functions that can't fail.
(hash_table_init_n, hash_table_init): Likewise; also now return void.
* hash.h (hash_table_init_n, hash_table_init): Now return void.
* cp/decl.c (build_typename_type): hash_table_init now returns void.
* ch/lang.c (GNU_xref_begin, GNU_xref_end): Deleted.
* ch/lex.c (convert_bitstring): Delete check for alloca failure.
* config/dsp16xx/dsp16xx.c (dsp16xx_invalid_register_for_compare):
Deleted.
* config/dsp16xx/dsp16xx.md (unnamed cmphi): Call abort instead of it.
* f/com.c (ffecom_decode_include_option_): Make errors non-fatal.
* f/lex.c (ffelex_cfelex_, ffelex_get_directive_line_): Likewise.
(ffelex_hash_): Likewise.
* config/arm/arm.c (arm_override_options): Likewise.
* config/avr/avr.c (avr_override_options): Likewise.
* config/c4x/c4x.c (c4x_expand_prologue): Likewise.
* config/dsp16xx/dsp16xx.c (function_prologue): Likewise.
* config/h8300/h8300.c (h8300_init_once): Likewise.
* config/mips/mips.c (override_options): Likewise.
* config/i386/i386.c (override_options): Likewise, rework.
* config/m68k/m68k.c (override_options): Likewise.
* cp/decl.c (init_decl_processing): Likewise.
* java/jcf-parse.c (load_class): Likewise.
* config/dsp16xx/dsp16xx.c (print_operand): Call output_operand_lossage
instead of fatal.
* config/mips/mips.c (print_operand): Likewise.
* java/lex.c (byteswap_init, need_byteswap): Only #ifdef HAVE_ICONV.
* objc/objc_act.c (objc_check_decl): Remove unneeded fatal call.
(get_object_reference): Likewise.
From-SVN: r39443
2001-02-04 23:44:12 +01:00
|
|
|
|
fatal_io_error ("can't open %s", dumpname);
|
c-aux-info.c (concat): Don't define.
* c-aux-info.c (concat): Don't define.
* cccp.c (my_strerror): Likewise. All callers changed to use
xstrerror instead.
(do_include): Call xstrdup, not xmalloc/strcpy.
(grow_outbuf): Don't check if xrealloc returns NULL, it can't.
(xmalloc, xrealloc, xcalloc, xstrdup): Don't define.
* collect2.c (my_strsignal): Likewise. All callers changed to use
strsignal instead.
(locatelib): Call xstrdup, not xmalloc/strcpy.
* 1750a.h (ASM_OUTPUT_INTERNAL_LABEL): Call xmalloc, not malloc.
* dsp16xx.c (override_options): Call xstrdup, not xmalloc/strcpy.
* i370.h (ASM_DECLARE_FUNCTION_NAME): Call xmalloc, not malloc.
* mips.c (build_mips16_call_stub): Call xstrdup, not xmalloc/strcpy.
* cppinit.c (cpp_options_init): Call xcalloc, not xmalloc/bzero.
* dwarfout.c (dwarfout_init): Call concat, not xmalloc/strcpy/...
* except.c (new_eh_region_entry): Call xmalloc/xrealloc, not
malloc/realloc.
(find_all_handler_type_matches): Likewise. Don't check return
value.
(get_new_handler, init_insn_eh_region, process_nestinfo): Call
xmalloc, not malloc.
(init_eh_nesting_info): Likewise. Call xcalloc, not xmalloc/bzero.
* gcc.c (xstrerror, xmalloc, xrealloc): Don't define.
(init_spec): Call xcalloc, not xmalloc/bzero.
(set_spec): Call xstrdup, not save_string.
(record_temp_file): Call xstrdup, not xmalloc/strcpy.
(find_a_file): Call xstrdup, not xmalloc/strcpy.
(process_command): Call xstrdup, not save_string.
(main): Call xcalloc, not xmalloc/bzero.
* gcov.c (xmalloc): Don't define.
(create_program_flow_graph): Call xcalloc, not xmalloc/bzero.
(scan_for_source_files): Call xstrdup, not xmalloc/strcpy.
(output_data): Call xcalloc, not xmalloc/bzero.
* haifa-sched.c (schedule_insns): Call xcalloc, not xmalloc/bzero.
* mips-tdump.c (xmalloc): Don't define.
(print_symbol): Call xmalloc, not malloc.
(read_tfile): Call xcalloc, not calloc.
* mips-tfile.c (xfree, my_strsignal, xmalloc, xcalloc, xrealloc):
Don't define. All callers of xfree/my_strsignal changed to use
free/strsignal instead.
(allocate_cluster): Call xcalloc, not calloc.
* objc/objc-act.c (lang_init): Call concat, not xmalloc/strcpy/...
Fix memory leak, free allocated memory.
* prefix.c (translate_name): Call xstrdup, not save_string.
(update_path): Likewise.
* profile.c (branch_prob): Call xstrdup, not xmalloc/strcpy.
* protoize.c (xstrerror, xmalloc, xrealloc, xfree, savestring2):
Don't define. Callers of xfree/savestring2 changed to use
free/concat instead.
* reload1.c (reload): Call xcalloc, not xmalloc/bzero.
(init_elim_table): Likewise.
* resource.c (init_resource_info): Likewise.
* stupid.c (stupid_life_analysis): Likewise.
* toplev.c (xmalloc, xcalloc, xrealloc, xstrdup): Don't define.
(open_dump_file): Call concat, not xmalloc/strcpy/...
(clean_dump_file): Likewise.
(compile_file): Call xstrdup, not xmalloc/strcpy.
From-SVN: r29148
1999-09-07 04:36:41 +02:00
|
|
|
|
free (dumpname);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
TAG_GETCLASS = "objc_getClass";
|
|
|
|
|
TAG_GETMETACLASS = "objc_getMetaClass";
|
|
|
|
|
TAG_MSGSEND = "objc_msgSend";
|
|
|
|
|
TAG_MSGSENDSUPER = "objc_msgSendSuper";
|
|
|
|
|
TAG_EXECCLASS = "__objc_execClass";
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
TAG_GETCLASS = "objc_get_class";
|
|
|
|
|
TAG_GETMETACLASS = "objc_get_meta_class";
|
|
|
|
|
TAG_MSGSEND = "objc_msg_lookup";
|
|
|
|
|
TAG_MSGSENDSUPER = "objc_msg_lookup_super";
|
|
|
|
|
TAG_EXECCLASS = "__objc_exec_class";
|
1994-06-30 18:17:36 +02:00
|
|
|
|
flag_typed_selectors = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
objc_ellipsis_node = make_node (ERROR_MARK);
|
|
|
|
|
|
objc-act.c (lang_init, [...]): Remove redundant code, assuming doing_objc_thang is true.
* objc/objc-act.c (lang_init, finish_file, maybe_objc_comptypes,
maybe_objc_check_decl, build_objc_string_object,
objc_declare_alias, objc_declare_class, build_message_expr,
build_protocol_expr, build_selector_expr, build_encode_expr,
get_class_ivars, start_class, start_protocol): Remove
redundant code, assuming doing_objc_thang is true.
From-SVN: r37866
2000-11-30 09:11:41 +01:00
|
|
|
|
init_objc ();
|
1997-12-12 07:20:41 +01:00
|
|
|
|
|
|
|
|
|
if (print_struct_values)
|
|
|
|
|
generate_struct_by_value_array ();
|
2000-04-12 09:22:32 +02:00
|
|
|
|
|
|
|
|
|
objc_act_parse_init ();
|
|
|
|
|
c_parse_init ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
1995-01-14 02:09:01 +01:00
|
|
|
|
finish_file ()
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
objc-act.c (lang_init, [...]): Remove redundant code, assuming doing_objc_thang is true.
* objc/objc-act.c (lang_init, finish_file, maybe_objc_comptypes,
maybe_objc_check_decl, build_objc_string_object,
objc_declare_alias, objc_declare_class, build_message_expr,
build_protocol_expr, build_selector_expr, build_encode_expr,
get_class_ivars, start_class, start_protocol): Remove
redundant code, assuming doing_objc_thang is true.
From-SVN: r37866
2000-11-30 09:11:41 +01:00
|
|
|
|
finish_objc (); /* Objective-C finalization */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (gen_declaration_file)
|
|
|
|
|
fclose (gen_declaration_file);
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-10 01:38:41 +02:00
|
|
|
|
const char *
|
1993-03-25 09:51:26 +01:00
|
|
|
|
lang_identify ()
|
|
|
|
|
{
|
|
|
|
|
return "objc";
|
|
|
|
|
}
|
|
|
|
|
|
2001-01-10 08:51:11 +01:00
|
|
|
|
static int
|
|
|
|
|
objc_decode_option (argc, argv)
|
1998-06-10 12:22:54 +02:00
|
|
|
|
int argc;
|
|
|
|
|
char **argv;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *p = argv[0];
|
2000-08-06 09:54:40 +02:00
|
|
|
|
|
Integrated preprocessor.
top level:
* Makefile.in: Remove all references to c-parse.gperf,
c-gperf.h, and c-parse.h. Remove -d from yacc command line
generating c-parse.c. Update dependencies.
* c-parse.gperf, c-gperf.h: Delete.
* c-common.c: Don't define parse_options, cpp_token, yy_cur,
yy_lim, or yy_get_token. Don't define get_directive_line if
USE_CPPLIB.
* c-common.h: Add multiple include guard. Define RID values
for every keyword in C, C++, and Objective C. Put all the
modifiers first.
(struct c_fileinfo, get_fileinfo, dump_time_statistics): New.
* c-decl.c (c_decode_option): Handle -lang-objc here.
(print_lang_identifier): Handle C_IS_RESERVED_WORD case.
(grokdeclarator): Adjust for new RID scheme.
(extract_interface_info): New stub.
* c-lang.c: Don't declare yy_cur or parse_options.
(lang_init_options): Call cpp_init. Don't call
cpp_options_init.
(lang_init): Don't call check_newline if USE_CPPLIB.
* c-lex.c: Don't include c-parse.h. Do include timevar.h.
Elide lots of unnecessary code if USE_CPPLIB. Delete code
rendered unnecessary by new architecture. Move routines not
shared with C++ to c-parse.in. Maintain a local idea of the
line number. Handle C++ as well as C.
[USE_CPPLIB]: Declare and register callbacks for #ident and
for entering/leaving files.
(init_c_lex, c_lex): Are now the entry points to this file.
(check_newline): Break out directive handling to
process_directive.
(read_ucs, is_extended_char, utf8_extend_token): Moved here
from C++ front end.
(readescape, parse_float): Overhaul.
(lex_number, lex_string, lex_charconst): Break out of c_lex
(n'ee yylex).
(get_fileinfo, update_header_times, dump_one_header,
dump_time_statistics): New and/or moved here from C++.
Support per-file data needed by C++ and per-header timing
statistics (C++ only, at the moment).
* c-lex.h: Update prototypes. Add multiple include guard.
* c-tree.h (struct lang_identifier): Add rid_code field.
(C_IS_RESERVED_WORD, C_RID_CODE): New.
* c-parse.in: Include c-pragma.h. Remove unnecesary calls to
reinit_parse_for_function and/or position_after_white_space.
(save_filename, save_lineno): Look ahead before saving.
(label -> identifier ':'): Save file and line before shifting ':'.
(reservedwords): No need to call get_identifier.
(init_parse, finish_parse, yyerror, yylex, yyprint,
make_pointer_declarator): Are now here for C/ObjC.
(rid_to_yy): Conversion table from RID constants to Yacc codes.
* c-pragma.c: Rewrite parsing logic to fit with cpplib's
#pragma registry. Provide dummy implementation of that
interface if !USE_CPPLIB.
* c-pragma.h: Update to match.
* flags.h: Add multiple include guard.
(flag_detailed_statistics): Moved here from C++.
* toplev.c: Define flag_detailed_statistics.
* gcc.c (C specs): Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* timevar.def (TV_CPP, TV_LEX): New.
* timevar.h: Add multiple include guard.
* objc/lang-specs.h: Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* objc/objc-act.c: Don't mention yy_cur or parse_options.
Initialize cpplib properly. Force lineno to 0 after first
call to check_newline. Don't handle -lang-objc here.
Move forget_protocol_qualifiers and remember_protocol_qualifiers here.
cp:
* Make-lang.in, Makefile.in: Remove all references to input.c,
gxx.gperf, and hash.h. Add ../c-lex.o to C_OBJS.
* gxx.gperf, hash.h, input.c: Delete.
* lang-specs.h: Pass -lang-c++ to cc1plus so cpplib is
initialized properly.
* class.c (fixup_pending_inline): Take a tree, not a
struct pending_inline *. All callers changed.
(init_class_processing): Set RID_PUBLIC, RID_PRIVATE,
RID_PROTECTED entries in ridpointers[] array here.
* decl.c (duplicate_decls): Do not refer to struct
pending_inline.
(record_builtin_type, init_decl_processing): Use RID_MAX not
CP_RID_MAX.
(grokdeclarator): Use C_IS_RESERVED_WORD.
* decl2.c (lang_decode_option): Ignore -lang-c++ for sake of
cpplib.
(grok_x_components): Do not inspect pending_inlines chain.
* cp-tree.h (struct lang_identifier): Add rid_code entry.
(C_IS_RESERVED_WORD, C_RID_CODE, C_RID_YYCODE): New.
(flag_no_gnu_keywords, flag_operator_names, rid_to_yy): Declare.
(DEFARG_LENGTH, struct pending_inline, TIME_IDENTIFIER_TIME,
TIME_IDENTIFIER_FILEINFO): Kill.
Update prototypes.
* lex.h: Expunge cp_rid. Rewrite RIDBIT macros to use just a
single 32-bit word.
* parse.y: Call do_pending_inlines unconditionally.
reinit_parse_for_method is now snarf_method. fn.defpen is no
longer necessary. Remove unnecessary <itype> annotation on
SCOPE. Do not refer to end_of_file or struct pending_inline.
* semantics.c (begin_inline_definitions): Call
do_pending_inlines unconditionally.
* lex.c: Remove all code now shared with C front end.
Initialize cpplib properly if USE_CPPLIB. Put reserved words
into the get_identifier table. Rewrite pragma handling to
work with the registry. Move code to save tokens for later
processing to spew.c.
* spew.c: Rewrite everything in terms of token streams instead
of text. Move routines here from lex.c / input.c as
appropriate. GC-mark trees hanging off the pending inlines
chain.
testsuite:
* g++.old-deja/g++.benjamin/13478.C: Put meaningful tags on
ERROR markers.
* g++.old-deja/g++.brendan/crash8.C: Move ERROR marker up one line.
* gcc.dg/c99-array-nonobj-1.c: Don't expect func[] cases to fail.
* gcc.dg/wtr-label-1.c: Don't use unconstrained .* in error regexps.
* gcc.dg/wtr-suffix-1.c: Correct error regexps.
* gcc.dg/cpp/unc1.c, gcc.dg/cpp/unc2.c, gcc.dg/cpp/unc3.c:
Preprocess only.
* gcc.dg/cpp/unc4.c: Adjust line number in dg-error line.
* gcc.dg/noncompile/const-ll-1.c: Generalize error regexp.
From-SVN: r36216
2000-09-07 02:37:14 +02:00
|
|
|
|
if (!strcmp (p, "-gen-decls"))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
flag_gen_declaration = 1;
|
|
|
|
|
else if (!strcmp (p, "-Wselector"))
|
|
|
|
|
warn_selector = 1;
|
|
|
|
|
else if (!strcmp (p, "-Wno-selector"))
|
|
|
|
|
warn_selector = 0;
|
1993-04-13 14:57:23 +02:00
|
|
|
|
else if (!strcmp (p, "-Wprotocol"))
|
|
|
|
|
flag_warn_protocol = 1;
|
|
|
|
|
else if (!strcmp (p, "-Wno-protocol"))
|
|
|
|
|
flag_warn_protocol = 0;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (!strcmp (p, "-fgnu-runtime"))
|
|
|
|
|
flag_next_runtime = 0;
|
|
|
|
|
else if (!strcmp (p, "-fno-next-runtime"))
|
|
|
|
|
flag_next_runtime = 0;
|
|
|
|
|
else if (!strcmp (p, "-fno-gnu-runtime"))
|
|
|
|
|
flag_next_runtime = 1;
|
|
|
|
|
else if (!strcmp (p, "-fnext-runtime"))
|
|
|
|
|
flag_next_runtime = 1;
|
1997-12-12 07:20:41 +01:00
|
|
|
|
else if (!strcmp (p, "-print-objc-runtime-info"))
|
|
|
|
|
print_struct_values = 1;
|
2000-08-06 09:54:40 +02:00
|
|
|
|
#define CSTSTRCLASS "-fconstant-string-class="
|
|
|
|
|
else if (!strncmp (p, CSTSTRCLASS, sizeof(CSTSTRCLASS) - 2)) {
|
|
|
|
|
if (strlen (argv[0]) <= strlen (CSTSTRCLASS))
|
|
|
|
|
error ("no class name specified as argument to -fconstant-string-class");
|
|
|
|
|
constant_string_class_name = xstrdup(argv[0] + sizeof(CSTSTRCLASS) - 1);
|
|
|
|
|
}
|
|
|
|
|
#undef CSTSTRCLASS
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
1998-06-10 12:22:54 +02:00
|
|
|
|
return c_decode_option (argc, argv);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
1998-03-24 00:04:47 +01:00
|
|
|
|
|
|
|
|
|
/* used by print-tree.c */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
lang_print_xnode (file, node, indent)
|
Warning fixes:
* Makefile.in (c-lang.o): Depend on c-tree.h, c-lex.h and toplev.h.
(c-lex.o): Depend on output.h.
(c-common.o): Likewise.
(stmt.o): Likewise.
(calls.o): Likewise.
(integrate.o): Depend on toplev.h.
(regclass.o): Depend on output.h.
(final.o): Depend on reload.h.
* c-common.c: Include output.h.
(check_format_info): Remove unused variable `integral_format'.
* c-decl.c (print_lang_decl): Mark parameters `file', `node' and
`indent' with ATTRIBUTE_UNUSED.
(print_lang_type): Likewise.
(maybe_build_cleanup): Likewise for parameter `decl'.
(copy_lang_decl): Likewise for parameter `node'.
* c-lang.c: Include c-tree.h, c-lex.h and toplev.h.
(lang_print_xnode): Mark parameters `file', `node' and `indent'
with ATTRIBUTE_UNUSED.
(lookup_interface): Likewise for parameter `arg'.
(is_class_name): Likewise.
(maybe_objc_check_decl): Likewise for parameter `decl'.
(maybe_objc_comptypes): Likewise for parameters `lhs', `rhs' and
`reflexive'.
(maybe_objc_method_name): Likewise for parameter `decl'.
(build_objc_string): Likewise for parameters `len' and `str'.
* c-lex.c: Include output.h.
* c-lex.h (position_after_white_space): Correct typo in prototype.
* c-tree.h (finish_file, c_expand_start_cond, c_expand_start_else,
c_expand_end_cond, init_iterators): Add prototypes.
* caller-save.c (set_reg_live): Mark parameters `reg' and `setter'
with ATTRIBUTE_UNUSED.
* calls.c: Include output.h.
* cccp.c (pipe_closed): Mark parameter `signo' with
ATTRIBUTE_UNUSED.
* combine.c: Move inclusion of expr.h to after insn-config.h.
* iris6.h (ASM_IDENTIFY_GCC, ASM_IDENTIFY_LANGUAGE): Don't define
as empty, rather define as ((void)0).
* sparc.c (sparc_check_64): Add braces around ambiguous `else'.
Add parentheses around assignment used as truth value.
* cplus-dem.c (squangle_mop_up): Change return type to void.
(internal_cplus_demangle): Remove unused parameter `options'.
All callers changed.
(cplus_demangle_opname): Remove function wide variable `int i' and
replace with `size_t i' at each location where it is used.
(cplus_demangle_opname): change type of `i' from int to size_t.
* cppexp.c (right_shift): Mark parameter `pfile' with
ATTRIBUTE_UNUSED.
* cpphash.c (cpp_lookup): Likewise.
(cpp_hash_cleanup): Likewise.
* cpplib.c (parse_name): Add a prototype and make it static.
(null_underflow): Mark parameter `pfile' with ATTRIBUTE_UNUSED.
(null_cleanup): Likewise for parameters `pbuf' and `pfile'.
(macro_cleanup): Likewise for parameter `pfile'.
(file_cleanup): Likewise.
* cpplib.h (cpp_reader_init, cpp_options_init, cpp_start_read,
cpp_read_check_assertion, skip_rest_of_line): Add prototypes.
* crtstuff.c (force_to_data, __CTOR_LIST__, force_to_data,
__DTOR_END__, __FRAME_END__): Mark with ATTRIBUTE_UNUSED.
* cse.c (cse_check_loop_start): Mark parameter `set' with
ATTRIBUTE_UNUSED.
* dbxout.c (flag_minimal_debug, have_used_extensions,
source_label_number): Move inside macro wrapper check against
defined (DBX_DEBUGGING_INFO) || defined (XCOFF_DEBUGGING_INFO).
* dwarf2out.c (gen_entry_point_die): Hide prototype and definition.
* except.h (doing_eh): Provide prototype.
* expr.c: Move inclusion of expr.h to after insn-config.h.
* final.c: Include reload.h.
(shorten_branches): Cast the first argument of bzero to char *.
* fix-header.c (cpp_print_containing_files): Mark parameter
`pfile' with ATTRIBUTE_UNUSED.
(cpp_fatal): Likewise.
* flow.c (find_basic_blocks_1): Cast the first argument of bzero
to char *.
* genattrtab.c (make_length_attrs): Change the type of variable
`i' from int to size_t.
(zero_fn): Mark parameter `exp' with ATTRIBUTE_UNUSED.
(one_fn): Likewise.
* genextract.c (main): When generating insn-extract.c, mark
variable `junk' with ATTRIBUTE_UNUSED.
* gengenrtl.c (gencode): When generating genrtl.c, cast the first
argument of bzero to char*.
* integrate.c: Include toplev.h.
* libgcc2.c: Wrap `struct exception_table' and
`find_exception_handler' in macro DWARF2_UNWIND_INFO.
* objc/Make-lang.in (objc-act.o): Depend on toplev.h.
* objc/objc-act.c: Include toplev.h.
(lang_print_xnode): Mark parameters `file', `node' and `indent'
with ATTRIBUTE_UNUSED.
(finish_protocol): Likewise for parameter `protocol'.
* output.h (declare_weak): Add prototype.
(decode_reg_name): Don't wrap with TREE_CODE macro.
(assemble_alias): Add prototype.
* regclass.c: Include output.h.
* reload.h (reloads_conflict): Add prototype.
* rtl.h (print_rtl_single, mark_elimiation, reg_class_subset_p,
output_func_start_profiler): Add prototypes.
* rtlanal.c (reg_set_p_1): Mark parameters `x' and `pat' with
ATTRIBUTE_UNUSED.
* scan-decls.c: Include scan.h.
* scan.h (recognized_function, recognized_extern): Add prototypes.
* stmt.c: Include output.h.
* toplev.c (error_for_asm, warning_for_asm): Remove prototypes.
(output_lang_identify): Hide prototype and definition.
(float_signal): Mark parameter `signo' with ATTRIBUTE_UNUSED.
(pipe_closed): Likewise.
* toplev.h (count_error, strip_off_ending, error_for_asm,
warning_for_asm): Add prototypes.
From-SVN: r19712
1998-05-13 14:40:39 +02:00
|
|
|
|
FILE *file ATTRIBUTE_UNUSED;
|
|
|
|
|
tree node ATTRIBUTE_UNUSED;
|
|
|
|
|
int indent ATTRIBUTE_UNUSED;
|
1998-03-24 00:04:47 +01:00
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
define_decl (declarator, declspecs)
|
|
|
|
|
tree declarator;
|
|
|
|
|
tree declspecs;
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree decl = start_decl (declarator, declspecs, 0, NULL_TREE, NULL_TREE);
|
|
|
|
|
finish_decl (decl, NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return decl;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-22 13:48:29 +02:00
|
|
|
|
/* Return 1 if LHS and RHS are compatible types for assignment or
|
|
|
|
|
various other operations. Return 0 if they are incompatible, and
|
|
|
|
|
return -1 if we choose to not decide. When the operation is
|
|
|
|
|
REFLEXIVE, check for compatibility in either direction.
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1993-04-22 13:48:29 +02:00
|
|
|
|
For statically typed objects, an assignment of the form `a' = `b'
|
|
|
|
|
is permitted if:
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1993-04-22 13:48:29 +02:00
|
|
|
|
`a' is of type "id",
|
|
|
|
|
`a' and `b' are the same class type, or
|
|
|
|
|
`a' and `b' are of class types A and B such that B is a descendant of A. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
int
|
1993-04-10 01:12:37 +02:00
|
|
|
|
maybe_objc_comptypes (lhs, rhs, reflexive)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree lhs, rhs;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int reflexive;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
objc-act.c (lang_init, [...]): Remove redundant code, assuming doing_objc_thang is true.
* objc/objc-act.c (lang_init, finish_file, maybe_objc_comptypes,
maybe_objc_check_decl, build_objc_string_object,
objc_declare_alias, objc_declare_class, build_message_expr,
build_protocol_expr, build_selector_expr, build_encode_expr,
get_class_ivars, start_class, start_protocol): Remove
redundant code, assuming doing_objc_thang is true.
From-SVN: r37866
2000-11-30 09:11:41 +01:00
|
|
|
|
return objc_comptypes (lhs, rhs, reflexive);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
lookup_method_in_protocol_list (rproto_list, sel_name, class_meth)
|
|
|
|
|
tree rproto_list;
|
|
|
|
|
tree sel_name;
|
|
|
|
|
int class_meth;
|
|
|
|
|
{
|
|
|
|
|
tree rproto, p;
|
|
|
|
|
tree fnd = 0;
|
|
|
|
|
|
|
|
|
|
for (rproto = rproto_list; rproto; rproto = TREE_CHAIN (rproto))
|
|
|
|
|
{
|
|
|
|
|
p = TREE_VALUE (rproto);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (p) == PROTOCOL_INTERFACE_TYPE)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if ((fnd = lookup_method (class_meth
|
|
|
|
|
? PROTOCOL_CLS_METHODS (p)
|
|
|
|
|
: PROTOCOL_NST_METHODS (p), sel_name)))
|
|
|
|
|
;
|
|
|
|
|
else if (PROTOCOL_LIST (p))
|
|
|
|
|
fnd = lookup_method_in_protocol_list (PROTOCOL_LIST (p),
|
|
|
|
|
sel_name, class_meth);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
1998-02-28 08:06:53 +01:00
|
|
|
|
{
|
|
|
|
|
; /* An identifier...if we could not find a protocol. */
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (fnd)
|
|
|
|
|
return fnd;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
lookup_protocol_in_reflist (rproto_list, lproto)
|
|
|
|
|
tree rproto_list;
|
|
|
|
|
tree lproto;
|
|
|
|
|
{
|
|
|
|
|
tree rproto, p;
|
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Make sure the protocol is supported by the object on the rhs. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (lproto) == PROTOCOL_INTERFACE_TYPE)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree fnd = 0;
|
|
|
|
|
for (rproto = rproto_list; rproto; rproto = TREE_CHAIN (rproto))
|
|
|
|
|
{
|
|
|
|
|
p = TREE_VALUE (rproto);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (TREE_CODE (p) == PROTOCOL_INTERFACE_TYPE)
|
|
|
|
|
{
|
|
|
|
|
if (lproto == p)
|
|
|
|
|
fnd = lproto;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
else if (PROTOCOL_LIST (p))
|
|
|
|
|
fnd = lookup_protocol_in_reflist (PROTOCOL_LIST (p), lproto);
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (fnd)
|
|
|
|
|
return fnd;
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
1998-02-28 08:06:53 +01:00
|
|
|
|
{
|
|
|
|
|
; /* An identifier...if we could not find a protocol. */
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-22 13:48:29 +02:00
|
|
|
|
/* Return 1 if LHS and RHS are compatible types for assignment
|
|
|
|
|
or various other operations. Return 0 if they are incompatible,
|
|
|
|
|
and return -1 if we choose to not decide. When the operation
|
|
|
|
|
is REFLEXIVE, check for compatibility in either direction. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int
|
1993-04-10 01:12:37 +02:00
|
|
|
|
objc_comptypes (lhs, rhs, reflexive)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree lhs;
|
|
|
|
|
tree rhs;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int reflexive;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* New clause for protocols. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (TREE_CODE (lhs) == POINTER_TYPE
|
|
|
|
|
&& TREE_CODE (TREE_TYPE (lhs)) == RECORD_TYPE
|
|
|
|
|
&& TREE_CODE (rhs) == POINTER_TYPE
|
|
|
|
|
&& TREE_CODE (TREE_TYPE (rhs)) == RECORD_TYPE)
|
|
|
|
|
{
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
int lhs_is_proto = IS_PROTOCOL_QUALIFIED_ID (lhs);
|
|
|
|
|
int rhs_is_proto = IS_PROTOCOL_QUALIFIED_ID (rhs);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (lhs_is_proto)
|
|
|
|
|
{
|
|
|
|
|
tree lproto, lproto_list = TYPE_PROTOCOL_LIST (lhs);
|
|
|
|
|
tree rproto, rproto_list;
|
|
|
|
|
tree p;
|
|
|
|
|
|
|
|
|
|
if (rhs_is_proto)
|
|
|
|
|
{
|
|
|
|
|
rproto_list = TYPE_PROTOCOL_LIST (rhs);
|
|
|
|
|
|
|
|
|
|
/* Make sure the protocol is supported by the object
|
|
|
|
|
on the rhs. */
|
|
|
|
|
for (lproto = lproto_list; lproto; lproto = TREE_CHAIN (lproto))
|
|
|
|
|
{
|
|
|
|
|
p = TREE_VALUE (lproto);
|
|
|
|
|
rproto = lookup_protocol_in_reflist (rproto_list, p);
|
|
|
|
|
|
|
|
|
|
if (!rproto)
|
|
|
|
|
warning ("object does not conform to the `%s' protocol",
|
|
|
|
|
IDENTIFIER_POINTER (PROTOCOL_NAME (p)));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (TYPED_OBJECT (TREE_TYPE (rhs)))
|
|
|
|
|
{
|
|
|
|
|
tree rname = TYPE_NAME (TREE_TYPE (rhs));
|
|
|
|
|
tree rinter;
|
|
|
|
|
|
|
|
|
|
/* Make sure the protocol is supported by the object
|
|
|
|
|
on the rhs. */
|
|
|
|
|
for (lproto = lproto_list; lproto; lproto = TREE_CHAIN (lproto))
|
|
|
|
|
{
|
|
|
|
|
p = TREE_VALUE (lproto);
|
|
|
|
|
rproto = 0;
|
|
|
|
|
rinter = lookup_interface (rname);
|
|
|
|
|
|
|
|
|
|
while (rinter && !rproto)
|
|
|
|
|
{
|
|
|
|
|
tree cat;
|
|
|
|
|
|
|
|
|
|
rproto_list = CLASS_PROTOCOL_LIST (rinter);
|
|
|
|
|
rproto = lookup_protocol_in_reflist (rproto_list, p);
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Check for protocols adopted by categories. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
cat = CLASS_CATEGORY_LIST (rinter);
|
|
|
|
|
while (cat && !rproto)
|
|
|
|
|
{
|
|
|
|
|
rproto_list = CLASS_PROTOCOL_LIST (cat);
|
|
|
|
|
rproto = lookup_protocol_in_reflist (rproto_list, p);
|
|
|
|
|
|
|
|
|
|
cat = CLASS_CATEGORY_LIST (cat);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
rinter = lookup_interface (CLASS_SUPER_NAME (rinter));
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (!rproto)
|
|
|
|
|
warning ("class `%s' does not implement the `%s' protocol",
|
|
|
|
|
IDENTIFIER_POINTER (TYPE_NAME (TREE_TYPE (rhs))),
|
|
|
|
|
IDENTIFIER_POINTER (PROTOCOL_NAME (p)));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* May change...based on whether there was any mismatch */
|
|
|
|
|
return 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
else if (rhs_is_proto)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Lhs is not a protocol...warn if it is statically typed */
|
|
|
|
|
return (TYPED_OBJECT (TREE_TYPE (lhs)) != 0);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
else
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Defer to comptypes. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return -1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (TREE_CODE (lhs) == RECORD_TYPE && TREE_CODE (rhs) == RECORD_TYPE)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
; /* Fall thru. This is the case we have been handling all along */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Defer to comptypes. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return -1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
/* `id' = `<class> *', `<class> *' = `id' */
|
|
|
|
|
|
|
|
|
|
if ((TYPE_NAME (lhs) == objc_object_id && TYPED_OBJECT (rhs))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|| (TYPE_NAME (rhs) == objc_object_id && TYPED_OBJECT (lhs)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
/* `id' = `Class', `Class' = `id' */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if ((TYPE_NAME (lhs) == objc_object_id
|
|
|
|
|
&& TYPE_NAME (rhs) == objc_class_id)
|
|
|
|
|
|| (TYPE_NAME (lhs) == objc_class_id
|
|
|
|
|
&& TYPE_NAME (rhs) == objc_object_id))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
/* `<class> *' = `<class> *' */
|
|
|
|
|
|
|
|
|
|
else if (TYPED_OBJECT (lhs) && TYPED_OBJECT (rhs))
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree lname = TYPE_NAME (lhs);
|
|
|
|
|
tree rname = TYPE_NAME (rhs);
|
|
|
|
|
tree inter;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (lname == rname)
|
|
|
|
|
return 1;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* If the left hand side is a super class of the right hand side,
|
|
|
|
|
allow it. */
|
|
|
|
|
for (inter = lookup_interface (rname); inter;
|
|
|
|
|
inter = lookup_interface (CLASS_SUPER_NAME (inter)))
|
|
|
|
|
if (lname == CLASS_SUPER_NAME (inter))
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
/* Allow the reverse when reflexive. */
|
|
|
|
|
if (reflexive)
|
|
|
|
|
for (inter = lookup_interface (lname); inter;
|
|
|
|
|
inter = lookup_interface (CLASS_SUPER_NAME (inter)))
|
|
|
|
|
if (rname == CLASS_SUPER_NAME (inter))
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
return 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Defer to comptypes. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return -1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Called from c-decl.c before all calls to rest_of_decl_compilation. */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
void
|
|
|
|
|
objc_check_decl (decl)
|
|
|
|
|
tree decl;
|
|
|
|
|
{
|
|
|
|
|
tree type = TREE_TYPE (decl);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (type) == RECORD_TYPE
|
|
|
|
|
&& TREE_STATIC_TEMPLATE (type)
|
|
|
|
|
&& type != constant_string_type)
|
diagnostic.h (set_internal_error_function): Renamed.
* diagnostic.h (set_internal_error_function): Renamed.
* toplev.h (internal_error): Renamed from fatal.
(pfatal_with_name): Deleted.
(fatal_io_error): Now has printf-style arguments.
* diagnostic.c (pfatal_with_name): Deleted.
(fatal_io_error): Rework to have args in printf-style.
(set_internal_error_function): Renamed from set_fatal_function.
(internal_error): Renamed from fatal.
(error_recursion, fancy_abort): Call internal_error instead of fatal.
* dwarf2out.c (get_cfa_from_loc_descr): Likewise.
* emit-rtl.c (gen_realpart, gen_imagpart): Likewise.
* expr.c (check_max_integer_computation_mode, expand_expr): Likewise.
* flow.c (verify_flow_info): Likewise.
* config/arm/arm.c (thumb_unexpanded_epilogue): Likewise.
* config/mips/mips.c (save_restore_insns): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
(dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/expr.c (java_lang_expand_expr): Likewise.
* java/jcf-parse.c (get_constant): Likewise.
* java/mangle.c (java_mangle_decl): Likewise.
* java/parse.y (make_nested_class_name, java_complete_lhs): Likewise.
(operator_string): Likewise.
* except.c (duplicate_eh_handlers): Call abort instead of fatal.
* flow.c (verify_flow_info): Likewise.
* ch/convert.c (convert): Likewise.
* ch/except.c (pop_handler, chill_check_no_handlers): Likewise.
* ch/expr.c (chill_expand_expr): Likewise.
* ch/parse.c (peek_token_, pushback_token, require): Likewise.
* config/arm/arm.c (thumb_load_double_from_address): Likewise.
* config/avr/avr.c (pttreg_to_str, unique_section): Likewise.
(avr_normalize_condition): Likewise.
* config/c4x/c4x.c (c4x_emit_libcall, c4x_valid_operands): Likewise.
* config/dsp16xx/dsp16xx.c (dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/class.c (build_class_ref): Likewise.
* java/constants.c (write_constant_pool): Likewise.
* java/decl.c (start_java_method): Likewise.
* java/expr.c (push_type, java_stack_pop, java_stack_swap): Likewise.
(java_stack_dup, encode_newarray_type): Likewise.
(build_java_array_length_access): Likewise.
(build_java_check_indexed_type, expand_java_pushc): Likewise.
(build_java_soft_divmod, build_invokeinterface): Likewise.
* java/java-tree.h (INNER_CLASS_P): Likewise.
* java/jcf-parse.c (parse_signature, get_name_constant): Likewise.
(give_name_to_class, get_class_constant): Likewise.
* java/jcf-write.c (CHECK_PUT, CHECK_OP, get_access_flags): Likewise.
(find_constant_index, generate_bytecode_conditional): Likewise.
(generate_bytecode_insns, perform_relocations): Likewise.
* java/lex.c (java_unget_unicode, java_lex): Likewise.
* java/mangle.c (mangle_type, mangle_record_type): Likewise.
(mangle_pointer_type, mangle_array_type, init_mangling): Likewise.
(finish_mangling): Likewise.
* java/parse.h (MARK_FINAL_PARMS): Likewise.
* java/parse.y (pop_current_osb, unreachable_stmt_error): Likewise.
(obtain_incomplete_type, java_complete_class): Likewise.
(java_check_regular_methods, java_complete_expand_method): Likewise.
(cut_identifier_in_qualified, check_deprecation): Likewise.
(patch_invoke, find_applicable_accessible_methods_list): Likewise.
(java_complete_lhs, lookup_name_in_blocks): Likewise.
(check_final_variable_indirect_assignment, build_unaryop): Likewise.
* java/typeck.c (set_local_type, parse_signature_type): Likewise.
(parse_signature_string, build_java_signature): Likewise;
(set_java_signature): Likewise.
* java/verify.c (type_stack_dup, CHECK_PC_IN_RANGE): Likewise.
* c-parse.in (methoddef): Call fatal_error instead of fatal.
* objc/objc-act.c (build_ivar_chain): Likewise.
* cp/except.c (decl_is_java_type): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
* cp/init.c (build_new_1): Likewise.
* f/com.c (ffecom_init_0): Likewise.
* java/class.c (add_method, build_static_field_ref): Likewise.
* java/expr.c (build_known_method_ref, expand_invoke): Likewise.
* java/jcf-parse.c (get_constant, jcf_parse): Likewise.
* java/lex.c (java_new_new_lexer): Likewise.
* java/jv-scan.c (main): Likewise.
(fatal_error): Renamed from fatal.
* dwarfout.c (dwarfout_init): Call fatal_io_error instead of
pfatal_with_name.
* graph.c (clean_graph_dump_file): Likewise.
* profile.c (init_branch_prob): Likewise.
* ch/grant.c (write_grant_file): Likewise.
* ch/lex.c (init_parse, same_file, yywrap): Likewise.
* f/com.c (init_parse): Likewise.
* java/jcf-parse.c (yyparse): Likewise.
* objc/objc-act.c (objc_init): Likewise.
* java/jcf-parse.c (jcf_parse_source): Call fatal_io_error, not fatal.
(yyparse): Likewise.
* java/jcf-write.c (make_class_file_name, write_classfile): Likewise.
* java/lex.c (java_get_line_col): Likewise.
* hash.c (hash_allocate): Don't check for failure returns from
obstack functions that can't fail.
(hash_table_init_n, hash_table_init): Likewise; also now return void.
* hash.h (hash_table_init_n, hash_table_init): Now return void.
* cp/decl.c (build_typename_type): hash_table_init now returns void.
* ch/lang.c (GNU_xref_begin, GNU_xref_end): Deleted.
* ch/lex.c (convert_bitstring): Delete check for alloca failure.
* config/dsp16xx/dsp16xx.c (dsp16xx_invalid_register_for_compare):
Deleted.
* config/dsp16xx/dsp16xx.md (unnamed cmphi): Call abort instead of it.
* f/com.c (ffecom_decode_include_option_): Make errors non-fatal.
* f/lex.c (ffelex_cfelex_, ffelex_get_directive_line_): Likewise.
(ffelex_hash_): Likewise.
* config/arm/arm.c (arm_override_options): Likewise.
* config/avr/avr.c (avr_override_options): Likewise.
* config/c4x/c4x.c (c4x_expand_prologue): Likewise.
* config/dsp16xx/dsp16xx.c (function_prologue): Likewise.
* config/h8300/h8300.c (h8300_init_once): Likewise.
* config/mips/mips.c (override_options): Likewise.
* config/i386/i386.c (override_options): Likewise, rework.
* config/m68k/m68k.c (override_options): Likewise.
* cp/decl.c (init_decl_processing): Likewise.
* java/jcf-parse.c (load_class): Likewise.
* config/dsp16xx/dsp16xx.c (print_operand): Call output_operand_lossage
instead of fatal.
* config/mips/mips.c (print_operand): Likewise.
* java/lex.c (byteswap_init, need_byteswap): Only #ifdef HAVE_ICONV.
* objc/objc_act.c (objc_check_decl): Remove unneeded fatal call.
(get_object_reference): Likewise.
From-SVN: r39443
2001-02-04 23:44:12 +01:00
|
|
|
|
error_with_decl (decl, "`%s' cannot be statically allocated");
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
void
|
|
|
|
|
maybe_objc_check_decl (decl)
|
|
|
|
|
tree decl;
|
|
|
|
|
{
|
objc-act.c (lang_init, [...]): Remove redundant code, assuming doing_objc_thang is true.
* objc/objc-act.c (lang_init, finish_file, maybe_objc_comptypes,
maybe_objc_check_decl, build_objc_string_object,
objc_declare_alias, objc_declare_class, build_message_expr,
build_protocol_expr, build_selector_expr, build_encode_expr,
get_class_ivars, start_class, start_protocol): Remove
redundant code, assuming doing_objc_thang is true.
From-SVN: r37866
2000-11-30 09:11:41 +01:00
|
|
|
|
objc_check_decl (decl);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Implement static typing. At this point, we know we have an interface. */
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
get_static_reference (interface, protocols)
|
|
|
|
|
tree interface;
|
|
|
|
|
tree protocols;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree type = xref_tag (RECORD_TYPE, interface);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (protocols)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree t, m = TYPE_MAIN_VARIANT (type);
|
|
|
|
|
|
|
|
|
|
t = copy_node (type);
|
1993-04-13 01:52:10 +02:00
|
|
|
|
TYPE_BINFO (t) = make_tree_vec (2);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* Add this type to the chain of variants of TYPE. */
|
|
|
|
|
TYPE_NEXT_VARIANT (t) = TYPE_NEXT_VARIANT (m);
|
|
|
|
|
TYPE_NEXT_VARIANT (m) = t;
|
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Look up protocols and install in lang specific list. Note
|
|
|
|
|
that the protocol list can have a different lifetime than T! */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TYPE_PROTOCOL_LIST (t) = lookup_and_install_protocols (protocols);
|
|
|
|
|
|
|
|
|
|
/* This forces a new pointer type to be created later
|
|
|
|
|
(in build_pointer_type)...so that the new template
|
|
|
|
|
we just created will actually be used...what a hack! */
|
|
|
|
|
if (TYPE_POINTER_TO (t))
|
2001-03-20 23:01:49 +01:00
|
|
|
|
TYPE_POINTER_TO (t) = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
type = t;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return type;
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
tree
|
1993-04-10 01:12:37 +02:00
|
|
|
|
get_object_reference (protocols)
|
|
|
|
|
tree protocols;
|
|
|
|
|
{
|
|
|
|
|
tree type_decl = lookup_name (objc_id_id);
|
|
|
|
|
tree type;
|
|
|
|
|
|
|
|
|
|
if (type_decl && TREE_CODE (type_decl) == TYPE_DECL)
|
|
|
|
|
{
|
|
|
|
|
type = TREE_TYPE (type_decl);
|
|
|
|
|
if (TYPE_MAIN_VARIANT (type) != id_type)
|
|
|
|
|
warning ("Unexpected type for `id' (%s)",
|
2001-03-28 04:49:19 +02:00
|
|
|
|
gen_declaration (type, errbuf));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
diagnostic.h (set_internal_error_function): Renamed.
* diagnostic.h (set_internal_error_function): Renamed.
* toplev.h (internal_error): Renamed from fatal.
(pfatal_with_name): Deleted.
(fatal_io_error): Now has printf-style arguments.
* diagnostic.c (pfatal_with_name): Deleted.
(fatal_io_error): Rework to have args in printf-style.
(set_internal_error_function): Renamed from set_fatal_function.
(internal_error): Renamed from fatal.
(error_recursion, fancy_abort): Call internal_error instead of fatal.
* dwarf2out.c (get_cfa_from_loc_descr): Likewise.
* emit-rtl.c (gen_realpart, gen_imagpart): Likewise.
* expr.c (check_max_integer_computation_mode, expand_expr): Likewise.
* flow.c (verify_flow_info): Likewise.
* config/arm/arm.c (thumb_unexpanded_epilogue): Likewise.
* config/mips/mips.c (save_restore_insns): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
(dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/expr.c (java_lang_expand_expr): Likewise.
* java/jcf-parse.c (get_constant): Likewise.
* java/mangle.c (java_mangle_decl): Likewise.
* java/parse.y (make_nested_class_name, java_complete_lhs): Likewise.
(operator_string): Likewise.
* except.c (duplicate_eh_handlers): Call abort instead of fatal.
* flow.c (verify_flow_info): Likewise.
* ch/convert.c (convert): Likewise.
* ch/except.c (pop_handler, chill_check_no_handlers): Likewise.
* ch/expr.c (chill_expand_expr): Likewise.
* ch/parse.c (peek_token_, pushback_token, require): Likewise.
* config/arm/arm.c (thumb_load_double_from_address): Likewise.
* config/avr/avr.c (pttreg_to_str, unique_section): Likewise.
(avr_normalize_condition): Likewise.
* config/c4x/c4x.c (c4x_emit_libcall, c4x_valid_operands): Likewise.
* config/dsp16xx/dsp16xx.c (dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/class.c (build_class_ref): Likewise.
* java/constants.c (write_constant_pool): Likewise.
* java/decl.c (start_java_method): Likewise.
* java/expr.c (push_type, java_stack_pop, java_stack_swap): Likewise.
(java_stack_dup, encode_newarray_type): Likewise.
(build_java_array_length_access): Likewise.
(build_java_check_indexed_type, expand_java_pushc): Likewise.
(build_java_soft_divmod, build_invokeinterface): Likewise.
* java/java-tree.h (INNER_CLASS_P): Likewise.
* java/jcf-parse.c (parse_signature, get_name_constant): Likewise.
(give_name_to_class, get_class_constant): Likewise.
* java/jcf-write.c (CHECK_PUT, CHECK_OP, get_access_flags): Likewise.
(find_constant_index, generate_bytecode_conditional): Likewise.
(generate_bytecode_insns, perform_relocations): Likewise.
* java/lex.c (java_unget_unicode, java_lex): Likewise.
* java/mangle.c (mangle_type, mangle_record_type): Likewise.
(mangle_pointer_type, mangle_array_type, init_mangling): Likewise.
(finish_mangling): Likewise.
* java/parse.h (MARK_FINAL_PARMS): Likewise.
* java/parse.y (pop_current_osb, unreachable_stmt_error): Likewise.
(obtain_incomplete_type, java_complete_class): Likewise.
(java_check_regular_methods, java_complete_expand_method): Likewise.
(cut_identifier_in_qualified, check_deprecation): Likewise.
(patch_invoke, find_applicable_accessible_methods_list): Likewise.
(java_complete_lhs, lookup_name_in_blocks): Likewise.
(check_final_variable_indirect_assignment, build_unaryop): Likewise.
* java/typeck.c (set_local_type, parse_signature_type): Likewise.
(parse_signature_string, build_java_signature): Likewise;
(set_java_signature): Likewise.
* java/verify.c (type_stack_dup, CHECK_PC_IN_RANGE): Likewise.
* c-parse.in (methoddef): Call fatal_error instead of fatal.
* objc/objc-act.c (build_ivar_chain): Likewise.
* cp/except.c (decl_is_java_type): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
* cp/init.c (build_new_1): Likewise.
* f/com.c (ffecom_init_0): Likewise.
* java/class.c (add_method, build_static_field_ref): Likewise.
* java/expr.c (build_known_method_ref, expand_invoke): Likewise.
* java/jcf-parse.c (get_constant, jcf_parse): Likewise.
* java/lex.c (java_new_new_lexer): Likewise.
* java/jv-scan.c (main): Likewise.
(fatal_error): Renamed from fatal.
* dwarfout.c (dwarfout_init): Call fatal_io_error instead of
pfatal_with_name.
* graph.c (clean_graph_dump_file): Likewise.
* profile.c (init_branch_prob): Likewise.
* ch/grant.c (write_grant_file): Likewise.
* ch/lex.c (init_parse, same_file, yywrap): Likewise.
* f/com.c (init_parse): Likewise.
* java/jcf-parse.c (yyparse): Likewise.
* objc/objc-act.c (objc_init): Likewise.
* java/jcf-parse.c (jcf_parse_source): Call fatal_io_error, not fatal.
(yyparse): Likewise.
* java/jcf-write.c (make_class_file_name, write_classfile): Likewise.
* java/lex.c (java_get_line_col): Likewise.
* hash.c (hash_allocate): Don't check for failure returns from
obstack functions that can't fail.
(hash_table_init_n, hash_table_init): Likewise; also now return void.
* hash.h (hash_table_init_n, hash_table_init): Now return void.
* cp/decl.c (build_typename_type): hash_table_init now returns void.
* ch/lang.c (GNU_xref_begin, GNU_xref_end): Deleted.
* ch/lex.c (convert_bitstring): Delete check for alloca failure.
* config/dsp16xx/dsp16xx.c (dsp16xx_invalid_register_for_compare):
Deleted.
* config/dsp16xx/dsp16xx.md (unnamed cmphi): Call abort instead of it.
* f/com.c (ffecom_decode_include_option_): Make errors non-fatal.
* f/lex.c (ffelex_cfelex_, ffelex_get_directive_line_): Likewise.
(ffelex_hash_): Likewise.
* config/arm/arm.c (arm_override_options): Likewise.
* config/avr/avr.c (avr_override_options): Likewise.
* config/c4x/c4x.c (c4x_expand_prologue): Likewise.
* config/dsp16xx/dsp16xx.c (function_prologue): Likewise.
* config/h8300/h8300.c (h8300_init_once): Likewise.
* config/mips/mips.c (override_options): Likewise.
* config/i386/i386.c (override_options): Likewise, rework.
* config/m68k/m68k.c (override_options): Likewise.
* cp/decl.c (init_decl_processing): Likewise.
* java/jcf-parse.c (load_class): Likewise.
* config/dsp16xx/dsp16xx.c (print_operand): Call output_operand_lossage
instead of fatal.
* config/mips/mips.c (print_operand): Likewise.
* java/lex.c (byteswap_init, need_byteswap): Only #ifdef HAVE_ICONV.
* objc/objc_act.c (objc_check_decl): Remove unneeded fatal call.
(get_object_reference): Likewise.
From-SVN: r39443
2001-02-04 23:44:12 +01:00
|
|
|
|
{
|
|
|
|
|
error ("Undefined type `id', please import <objc/objc.h>");
|
|
|
|
|
return error_mark_node;
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* This clause creates a new pointer type that is qualified with
|
|
|
|
|
the protocol specification...this info is used later to do more
|
|
|
|
|
elaborate type checking. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (protocols)
|
|
|
|
|
{
|
|
|
|
|
tree t, m = TYPE_MAIN_VARIANT (type);
|
|
|
|
|
|
|
|
|
|
t = copy_node (type);
|
1993-04-13 01:52:10 +02:00
|
|
|
|
TYPE_BINFO (t) = make_tree_vec (2);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* Add this type to the chain of variants of TYPE. */
|
|
|
|
|
TYPE_NEXT_VARIANT (t) = TYPE_NEXT_VARIANT (m);
|
|
|
|
|
TYPE_NEXT_VARIANT (m) = t;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Look up protocols...and install in lang specific list */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TYPE_PROTOCOL_LIST (t) = lookup_and_install_protocols (protocols);
|
|
|
|
|
|
|
|
|
|
/* This forces a new pointer type to be created later
|
|
|
|
|
(in build_pointer_type)...so that the new template
|
|
|
|
|
we just created will actually be used...what a hack! */
|
|
|
|
|
if (TYPE_POINTER_TO (t))
|
2001-03-20 23:01:49 +01:00
|
|
|
|
TYPE_POINTER_TO (t) = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
type = t;
|
|
|
|
|
}
|
|
|
|
|
return type;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
lookup_and_install_protocols (protocols)
|
|
|
|
|
tree protocols;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree proto;
|
|
|
|
|
tree prev = NULL;
|
|
|
|
|
tree return_value = protocols;
|
|
|
|
|
|
|
|
|
|
for (proto = protocols; proto; proto = TREE_CHAIN (proto))
|
|
|
|
|
{
|
|
|
|
|
tree ident = TREE_VALUE (proto);
|
|
|
|
|
tree p = lookup_protocol (ident);
|
|
|
|
|
|
|
|
|
|
if (!p)
|
|
|
|
|
{
|
|
|
|
|
error ("Cannot find protocol declaration for `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (ident));
|
|
|
|
|
if (prev)
|
|
|
|
|
TREE_CHAIN (prev) = TREE_CHAIN (proto);
|
|
|
|
|
else
|
|
|
|
|
return_value = TREE_CHAIN (proto);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Replace identifier with actual protocol node. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_VALUE (proto) = p;
|
|
|
|
|
prev = proto;
|
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return return_value;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
/* Create and push a decl for a built-in external variable or field NAME.
|
|
|
|
|
CODE says which.
|
|
|
|
|
TYPE is its data type. */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
create_builtin_decl (code, type, name)
|
|
|
|
|
enum tree_code code;
|
|
|
|
|
tree type;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *name;
|
1992-03-16 05:38:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree decl = build_decl (code, get_identifier (name), type);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
if (code == VAR_DECL)
|
|
|
|
|
{
|
1992-08-30 23:05:48 +02:00
|
|
|
|
TREE_STATIC (decl) = 1;
|
2001-01-11 00:06:30 +01:00
|
|
|
|
make_decl_rtl (decl, 0);
|
1992-03-16 05:38:38 +01:00
|
|
|
|
pushdecl (decl);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
DECL_ARTIFICIAL (decl) = 1;
|
1992-03-16 05:38:38 +01:00
|
|
|
|
return decl;
|
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Purpose: "play" parser, creating/installing representations
|
1993-04-10 01:12:37 +02:00
|
|
|
|
of the declarations that are required by Objective-C.
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
Model:
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
type_spec--------->sc_spec
|
|
|
|
|
(tree_list) (tree_list)
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
identifier_node identifier_node */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
synth_module_prologue ()
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree temp_type;
|
|
|
|
|
tree super_p;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Defined in `objc.h' */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
objc_object_id = get_identifier (TAG_OBJECT);
|
|
|
|
|
|
|
|
|
|
objc_object_reference = xref_tag (RECORD_TYPE, objc_object_id);
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
id_type = build_pointer_type (objc_object_reference);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
objc_id_id = get_identifier (TYPE_ID);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
objc_class_id = get_identifier (TAG_CLASS);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
objc_class_type = build_pointer_type (xref_tag (RECORD_TYPE, objc_class_id));
|
|
|
|
|
protocol_type = build_pointer_type (xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (PROTOCOL_OBJECT_CLASS_NAME)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
/* Declare type of selector-objects that represent an operation name. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* `struct objc_selector *' */
|
1992-03-16 05:38:38 +01:00
|
|
|
|
selector_type
|
|
|
|
|
= build_pointer_type (xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (TAG_SELECTOR)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Forward declare type, or else the prototype for msgSendSuper will
|
|
|
|
|
complain. */
|
|
|
|
|
|
|
|
|
|
super_p = build_pointer_type (xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (TAG_SUPER)));
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* id objc_msgSend (id, SEL, ...); */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
temp_type
|
|
|
|
|
= build_function_type (id_type,
|
|
|
|
|
tree_cons (NULL_TREE, id_type,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree_cons (NULL_TREE, selector_type,
|
|
|
|
|
NULL_TREE)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
umsg_decl = build_decl (FUNCTION_DECL,
|
|
|
|
|
get_identifier (TAG_MSGSEND), temp_type);
|
|
|
|
|
DECL_EXTERNAL (umsg_decl) = 1;
|
1993-05-20 05:11:40 +02:00
|
|
|
|
TREE_PUBLIC (umsg_decl) = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
DECL_INLINE (umsg_decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_ARTIFICIAL (umsg_decl) = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (flag_traditional && TAG_MSGSEND[0] != '_')
|
|
|
|
|
DECL_BUILT_IN_NONANSI (umsg_decl) = 1;
|
|
|
|
|
|
2001-05-01 14:11:35 +02:00
|
|
|
|
make_decl_rtl (umsg_decl, NULL);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
pushdecl (umsg_decl);
|
|
|
|
|
}
|
|
|
|
|
else
|
1999-09-24 12:07:04 +02:00
|
|
|
|
umsg_decl = builtin_function (TAG_MSGSEND, temp_type, 0, NOT_BUILT_IN, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* id objc_msgSendSuper (struct objc_super *, SEL, ...); */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
temp_type
|
|
|
|
|
= build_function_type (id_type,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree_cons (NULL_TREE, super_p,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree_cons (NULL_TREE, selector_type,
|
|
|
|
|
NULL_TREE)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
umsg_super_decl = builtin_function (TAG_MSGSENDSUPER,
|
1999-09-24 12:07:04 +02:00
|
|
|
|
temp_type, 0, NOT_BUILT_IN, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* id objc_getClass (const char *); */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
temp_type = build_function_type (id_type,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree_cons (NULL_TREE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
const_string_type_node,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree_cons (NULL_TREE, void_type_node,
|
|
|
|
|
NULL_TREE)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
objc_get_class_decl
|
1999-09-24 12:07:04 +02:00
|
|
|
|
= builtin_function (TAG_GETCLASS, temp_type, 0, NOT_BUILT_IN, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* id objc_getMetaClass (const char *); */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
objc_get_meta_class_decl
|
1999-09-24 12:07:04 +02:00
|
|
|
|
= builtin_function (TAG_GETMETACLASS, temp_type, 0, NOT_BUILT_IN, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-13 03:58:32 +02:00
|
|
|
|
/* static SEL _OBJC_SELECTOR_TABLE[]; */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (! flag_next_runtime)
|
1994-06-30 18:17:36 +02:00
|
|
|
|
{
|
|
|
|
|
if (flag_typed_selectors)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Suppress outputting debug symbols, because
|
|
|
|
|
dbxout_init hasn'r been called yet. */
|
1994-06-30 18:17:36 +02:00
|
|
|
|
enum debug_info_type save_write_symbols = write_symbols;
|
|
|
|
|
write_symbols = NO_DEBUG;
|
|
|
|
|
|
|
|
|
|
build_selector_template ();
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
temp_type = build_array_type (objc_selector_template, NULL_TREE);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
|
|
|
|
|
write_symbols = save_write_symbols;
|
|
|
|
|
}
|
|
|
|
|
else
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
temp_type = build_array_type (selector_type, NULL_TREE);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
|
|
|
|
|
layout_type (temp_type);
|
|
|
|
|
UOBJC_SELECTOR_TABLE_decl
|
|
|
|
|
= create_builtin_decl (VAR_DECL, temp_type,
|
|
|
|
|
"_OBJC_SELECTOR_TABLE");
|
|
|
|
|
|
1995-04-27 01:18:37 +02:00
|
|
|
|
/* Avoid warning when not sending messages. */
|
|
|
|
|
TREE_USED (UOBJC_SELECTOR_TABLE_decl) = 1;
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
generate_forward_declaration_to_string_table ();
|
|
|
|
|
|
|
|
|
|
/* Forward declare constant_string_id and constant_string_type. */
|
2000-08-06 09:54:40 +02:00
|
|
|
|
if (!constant_string_class_name)
|
|
|
|
|
constant_string_class_name = STRING_OBJECT_CLASS_NAME;
|
|
|
|
|
|
|
|
|
|
constant_string_id = get_identifier (constant_string_class_name);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
constant_string_type = xref_tag (RECORD_TYPE, constant_string_id);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Custom build_string which sets TREE_TYPE! */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
my_build_string (len, str)
|
|
|
|
|
int len;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *str;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
int wide_flag = 0;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree a_string = build_string (len, str);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Some code from combine_strings, which is local to c-parse.y. */
|
|
|
|
|
if (TREE_TYPE (a_string) == int_array_type_node)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
wide_flag = 1;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
TREE_TYPE (a_string)
|
|
|
|
|
= build_array_type (wide_flag ? integer_type_node : char_type_node,
|
|
|
|
|
build_index_type (build_int_2 (len - 1, 0)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
TREE_CONSTANT (a_string) = 1; /* Puts string in the readonly segment */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_STATIC (a_string) = 1;
|
|
|
|
|
|
|
|
|
|
return a_string;
|
|
|
|
|
}
|
|
|
|
|
|
2000-08-04 03:30:06 +02:00
|
|
|
|
/* Given a chain of STRING_CST's, build a static instance of
|
2001-03-09 04:27:41 +01:00
|
|
|
|
NXConstantString which points at the concatenation of those strings.
|
1993-04-10 01:12:37 +02:00
|
|
|
|
We place the string object in the __string_objects section of the
|
|
|
|
|
__OBJC segment. The Objective-C runtime will initialize the isa
|
2001-03-09 04:27:41 +01:00
|
|
|
|
pointers of the string objects to point at the NXConstantString
|
|
|
|
|
class object. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
build_objc_string_object (strings)
|
|
|
|
|
tree strings;
|
|
|
|
|
{
|
|
|
|
|
tree string, initlist, constructor;
|
|
|
|
|
int length;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (lookup_interface (constant_string_id) == NULL_TREE)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
error ("Cannot find interface declaration for `%s'",
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
IDENTIFIER_POINTER (constant_string_id));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return error_mark_node;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
add_class_reference (constant_string_id);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
string = combine_strings (strings);
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
TREE_SET_CODE (string, STRING_CST);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
length = TREE_STRING_LENGTH (string) - 1;
|
|
|
|
|
|
|
|
|
|
/* & ((NXConstantString) {0, string, length}) */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = build_tree_list (NULL_TREE, build_int_2 (0, 0));
|
|
|
|
|
initlist
|
|
|
|
|
= tree_cons (NULL_TREE, copy_node (build_unary_op (ADDR_EXPR, string, 1)),
|
|
|
|
|
initlist);
|
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (length, 0), initlist);
|
|
|
|
|
constructor = build_constructor (constant_string_type, nreverse (initlist));
|
1993-08-01 07:53:52 +02:00
|
|
|
|
|
1995-04-27 01:18:37 +02:00
|
|
|
|
if (!flag_next_runtime)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
{
|
|
|
|
|
constructor
|
|
|
|
|
= objc_add_static_instance (constructor, constant_string_type);
|
|
|
|
|
}
|
|
|
|
|
|
1995-04-27 01:18:37 +02:00
|
|
|
|
return (build_unary_op (ADDR_EXPR, constructor, 1));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Declare a static instance of CLASS_DECL initialized by CONSTRUCTOR. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1995-04-27 01:18:37 +02:00
|
|
|
|
static tree
|
|
|
|
|
objc_add_static_instance (constructor, class_decl)
|
|
|
|
|
tree constructor, class_decl;
|
|
|
|
|
{
|
|
|
|
|
static int num_static_inst;
|
1998-02-28 08:06:53 +01:00
|
|
|
|
tree *chain, decl;
|
1995-04-27 01:18:37 +02:00
|
|
|
|
char buf[256];
|
|
|
|
|
|
|
|
|
|
/* Find the list of static instances for the CLASS_DECL. Create one if
|
|
|
|
|
not found. */
|
|
|
|
|
for (chain = &objc_static_instances;
|
|
|
|
|
*chain && TREE_VALUE (*chain) != class_decl;
|
|
|
|
|
chain = &TREE_CHAIN (*chain));
|
|
|
|
|
if (!*chain)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
*chain = tree_cons (NULL_TREE, class_decl, NULL_TREE);
|
1995-04-27 01:18:37 +02:00
|
|
|
|
add_objc_string (TYPE_NAME (class_decl), class_names);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "_OBJC_INSTANCE_%d", num_static_inst++);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl = build_decl (VAR_DECL, get_identifier (buf), class_decl);
|
|
|
|
|
DECL_COMMON (decl) = 1;
|
|
|
|
|
TREE_STATIC (decl) = 1;
|
|
|
|
|
DECL_ARTIFICIAL (decl) = 1;
|
2001-03-06 11:04:54 +01:00
|
|
|
|
DECL_INITIAL (decl) = constructor;
|
|
|
|
|
|
|
|
|
|
/* We may be writing something else just now.
|
|
|
|
|
Postpone till end of input. */
|
|
|
|
|
DECL_DEFER_OUTPUT (decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
pushdecl_top_level (decl);
|
|
|
|
|
rest_of_decl_compilation (decl, 0, 1, 0);
|
1995-04-27 01:18:37 +02:00
|
|
|
|
|
|
|
|
|
/* Add the DECL to the head of this CLASS' list. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
TREE_PURPOSE (*chain) = tree_cons (NULL_TREE, decl, TREE_PURPOSE (*chain));
|
|
|
|
|
|
|
|
|
|
return decl;
|
1993-08-01 07:53:52 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Build a static constant CONSTRUCTOR
|
|
|
|
|
with type TYPE and elements ELTS. */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
build_constructor (type, elts)
|
|
|
|
|
tree type, elts;
|
|
|
|
|
{
|
|
|
|
|
tree constructor = build (CONSTRUCTOR, type, NULL_TREE, elts);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_CONSTANT (constructor) = 1;
|
|
|
|
|
TREE_STATIC (constructor) = 1;
|
|
|
|
|
TREE_READONLY (constructor) = 1;
|
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return constructor;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1992-03-16 05:38:38 +01:00
|
|
|
|
|
|
|
|
|
/* Take care of defining and initializing _OBJC_SYMBOLS. */
|
|
|
|
|
|
|
|
|
|
/* Predefine the following data type:
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
struct _objc_symtab
|
|
|
|
|
{
|
|
|
|
|
long sel_ref_cnt;
|
|
|
|
|
SEL *refs;
|
|
|
|
|
short cls_def_cnt;
|
|
|
|
|
short cat_def_cnt;
|
|
|
|
|
void *defs[cls_def_cnt + cat_def_cnt];
|
|
|
|
|
}; */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
build_objc_symtab_template ()
|
|
|
|
|
{
|
1992-03-16 05:38:38 +01:00
|
|
|
|
tree field_decl, field_decl_chain, index;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
objc_symtab_template
|
|
|
|
|
= start_struct (RECORD_TYPE, get_identifier (UTAG_SYMTAB));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* long sel_ref_cnt; */
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
field_decl = create_builtin_decl (FIELD_DECL,
|
|
|
|
|
long_integer_type_node,
|
|
|
|
|
"sel_ref_cnt");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
/* SEL *refs; */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
field_decl = create_builtin_decl (FIELD_DECL,
|
|
|
|
|
build_pointer_type (selector_type),
|
|
|
|
|
"refs");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* short cls_def_cnt; */
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
field_decl = create_builtin_decl (FIELD_DECL,
|
|
|
|
|
short_integer_type_node,
|
|
|
|
|
"cls_def_cnt");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* short cat_def_cnt; */
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
field_decl = create_builtin_decl (FIELD_DECL,
|
|
|
|
|
short_integer_type_node,
|
|
|
|
|
"cat_def_cnt");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* void *defs[cls_def_cnt + cat_def_cnt]; */
|
|
|
|
|
|
1997-03-15 13:53:30 +01:00
|
|
|
|
if (!flag_next_runtime)
|
|
|
|
|
index = build_index_type (build_int_2 (imp_count + cat_count, 0));
|
|
|
|
|
else
|
|
|
|
|
index = build_index_type (build_int_2 (imp_count + cat_count - 1,
|
|
|
|
|
imp_count == 0 && cat_count == 0
|
|
|
|
|
? -1 : 0));
|
1992-03-16 05:38:38 +01:00
|
|
|
|
field_decl = create_builtin_decl (FIELD_DECL,
|
|
|
|
|
build_array_type (ptr_type_node, index),
|
|
|
|
|
"defs");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_symtab_template, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
/* Create the initial value for the `defs' field of _objc_symtab.
|
|
|
|
|
This is a CONSTRUCTOR. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
1993-08-01 07:53:52 +02:00
|
|
|
|
init_def_list (type)
|
|
|
|
|
tree type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree expr, initlist = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
struct imp_entry *impent;
|
|
|
|
|
|
|
|
|
|
if (imp_count)
|
|
|
|
|
for (impent = imp_list; impent; impent = impent->next)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (impent->imp_context) == CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, impent->class_decl, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (cat_count)
|
|
|
|
|
for (impent = imp_list; impent; impent = impent->next)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (impent->imp_context) == CATEGORY_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, impent->class_decl, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1997-03-15 13:53:30 +01:00
|
|
|
|
if (!flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
/* statics = { ..., _OBJC_STATIC_INSTANCES, ... } */
|
|
|
|
|
tree expr;
|
|
|
|
|
|
|
|
|
|
if (static_instances_decl)
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, static_instances_decl, 0);
|
|
|
|
|
else
|
|
|
|
|
expr = build_int_2 (0, 0);
|
|
|
|
|
|
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
|
|
|
|
}
|
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return build_constructor (type, nreverse (initlist));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
/* Construct the initial value for all of _objc_symtab. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
1993-08-01 07:53:52 +02:00
|
|
|
|
init_objc_symtab (type)
|
|
|
|
|
tree type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree initlist;
|
|
|
|
|
|
|
|
|
|
/* sel_ref_cnt = { ..., 5, ... } */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = build_tree_list (NULL_TREE, build_int_2 (0, 0));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-13 03:58:32 +02:00
|
|
|
|
/* refs = { ..., _OBJC_SELECTOR_TABLE, ... } */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime || ! sel_ref_chain)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE,
|
1993-08-01 07:53:52 +02:00
|
|
|
|
build_unary_op (ADDR_EXPR,
|
|
|
|
|
UOBJC_SELECTOR_TABLE_decl, 1),
|
|
|
|
|
initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* cls_def_cnt = { ..., 5, ... } */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (imp_count, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* cat_def_cnt = { ..., 5, ... } */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (cat_count, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* cls_def = { ..., { &Foo, &Bar, ...}, ... } */
|
|
|
|
|
|
1997-03-15 13:53:30 +01:00
|
|
|
|
if (imp_count || cat_count || static_instances_decl)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
{
|
1997-03-15 13:53:30 +01:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
tree field = TYPE_FIELDS (type);
|
|
|
|
|
field = TREE_CHAIN (TREE_CHAIN (TREE_CHAIN (TREE_CHAIN (field))));
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, init_def_list (TREE_TYPE (field)),
|
1993-08-01 07:53:52 +02:00
|
|
|
|
initlist);
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return build_constructor (type, nreverse (initlist));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
/* Push forward-declarations of all the categories
|
|
|
|
|
so that init_def_list can use them in a CONSTRUCTOR. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
forward_declare_categories ()
|
|
|
|
|
{
|
|
|
|
|
struct imp_entry *impent;
|
|
|
|
|
tree sav = implementation_context;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (impent = imp_list; impent; impent = impent->next)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (impent->imp_context) == CATEGORY_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1992-03-16 05:38:38 +01:00
|
|
|
|
/* Set an invisible arg to synth_id_with_class_suffix. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
implementation_context = impent->imp_context;
|
1992-03-16 05:38:38 +01:00
|
|
|
|
impent->class_decl
|
|
|
|
|
= create_builtin_decl (VAR_DECL, objc_category_template,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
IDENTIFIER_POINTER (synth_id_with_class_suffix ("_OBJC_CATEGORY", implementation_context)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
implementation_context = sav;
|
|
|
|
|
}
|
|
|
|
|
|
1992-03-16 05:38:38 +01:00
|
|
|
|
/* Create the declaration of _OBJC_SYMBOLS, with type `strict _objc_symtab'
|
|
|
|
|
and initialized appropriately. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
generate_objc_symtab_decl ()
|
|
|
|
|
{
|
|
|
|
|
tree sc_spec;
|
|
|
|
|
|
|
|
|
|
if (!objc_category_template)
|
|
|
|
|
build_category_template ();
|
|
|
|
|
|
|
|
|
|
/* forward declare categories */
|
|
|
|
|
if (cat_count)
|
|
|
|
|
forward_declare_categories ();
|
|
|
|
|
|
|
|
|
|
if (!objc_symtab_template)
|
|
|
|
|
build_objc_symtab_template ();
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = build_tree_list (NULL_TREE, ridpointers[(int) RID_STATIC]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_SYMBOLS_decl = start_decl (get_identifier ("_OBJC_SYMBOLS"),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree_cons (NULL_TREE,
|
|
|
|
|
objc_symtab_template, sc_spec),
|
|
|
|
|
1,
|
|
|
|
|
NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_USED (UOBJC_SYMBOLS_decl) = 1;
|
|
|
|
|
DECL_IGNORED_P (UOBJC_SYMBOLS_decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_ARTIFICIAL (UOBJC_SYMBOLS_decl) = 1;
|
1993-08-01 07:53:52 +02:00
|
|
|
|
finish_decl (UOBJC_SYMBOLS_decl,
|
|
|
|
|
init_objc_symtab (TREE_TYPE (UOBJC_SYMBOLS_decl)),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1992-03-16 05:38:38 +01:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
1993-08-01 07:53:52 +02:00
|
|
|
|
init_module_descriptor (type)
|
|
|
|
|
tree type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree initlist, expr;
|
|
|
|
|
|
|
|
|
|
/* version = { 1, ... } */
|
|
|
|
|
|
|
|
|
|
expr = build_int_2 (OBJC_VERSION, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = build_tree_list (NULL_TREE, expr);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* size = { ..., sizeof (struct objc_module), ... } */
|
|
|
|
|
|
1993-01-09 10:14:53 +01:00
|
|
|
|
expr = size_in_bytes (objc_module_template);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* name = { ..., "foo.m", ... } */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
expr = add_objc_string (get_identifier (input_filename), class_names);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* symtab = { ..., _OBJC_SYMBOLS, ... } */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (UOBJC_SYMBOLS_decl)
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, UOBJC_SYMBOLS_decl, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
expr = build_int_2 (0, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return build_constructor (type, nreverse (initlist));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write out the data structures to describe Objective C classes defined.
|
|
|
|
|
If appropriate, compile and output a setup function to initialize them.
|
|
|
|
|
Return a string which is the name of a function to call to initialize
|
|
|
|
|
the Objective C data structures for this file (and perhaps for other files
|
1993-04-10 01:12:37 +02:00
|
|
|
|
also).
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
struct objc_module { ... } _OBJC_MODULE = { ... }; */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
rtl.h (rtunion_def): Constify member `rtstr'.
* rtl.h (rtunion_def): Constify member `rtstr'.
(emit_line_note_after, emit_line_note, emit_line_note_force,
emit_note, decode_asm_operands): Constify.
* cse.c (canon_hash): Likewise.
* dbxout.c (dbxout_block): Likewise.
* diagnostic.c (file_and_line_for_asm, v_error_for_asm,
v_warning_for_asm): Likewise.
* dwarfout.c (function_start_label): Likewise.
* emit-rtl.c (emit_line_note_after, emit_line_note, emit_note,
emit_line_note_force): Likewise.
* final.c (last_filename, asm_insn_count, final_scan_insn,
output_source_line): Likewise.
* function.h (struct emit_status): Likewise.
* gcse.c (hash_expr_1): Likewise.
* genattr.c (gen_attr, main): Likewise.
* genattrtab.c (struct function_unit, current_alternative_string,
write_attr_valueq, n_comma_elts, next_comma_elt, attr_eq,
attr_numeral, check_attr_test, check_attr_value,
convert_set_attr_alternative, convert_set_attr,
compute_alternative_mask, simplify_by_exploding, gen_attr,
gen_unit): Likewise.
* genflags.c (gen_insn): Likewise.
* gengenrtl.c (type_from_format): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (n_occurrences, process_template, process_template):
Likewise.
* ggc-page.c (ggc_set_mark, ggc_mark_if_gcable, ggc_get_size):
Likewise.
* ggc-simple.c (ggc_set_mark, ggc_mark_if_gcable, ggc_get_size):
Likewise.
* ggc.h (ggc_mark_string, ggc_mark, ggc_mark_if_gcable,
ggc_set_mark, ggc_get_size): Likewise.
* objc/objc-act.c (build_module_descriptor, finish_objc): Likewise.
* optabs.c (init_one_libfunc): Likewise.
* output.h (assemble_start_function): Likewise.
* recog.c (decode_asm_operands): Likewise.
* toplev.c (rest_of_compilation): Likewise.
* tree.h (emit_line_note_after, emit_line_note,
emit_line_note_force): Likewise.
* varasm.c (asm_output_bss, asm_output_aligned_bss,
asm_emit_uninitialised, assemble_start_function,
assemble_variable, const_hash, compare_constant_1,
find_pool_constant, mark_constant_pool, assemble_alias): Likewise.
* xcoffout.h (DBX_FINISH_SYMBOL): Likewise.
* alpha/alpha.md (call_vms, call_value_vms): Likewise.
* arm/aof.h (ASM_OUTPUT_ASCII): Likewise.
* arm/aout.h (ASM_OUTPUT_ASCII): Likewise.
* arm/arm-protos.h (output_ascii_pseudo_op, arm_dllexport_name_p,
arm_dllimport_name_p): Likewise.
* arm/arm.c (arm_encode_call_attribute, output_ascii_pseudo_op):
Likewise.
* arm/arm.h (ASM_OUTPUT_MI_THUNK): Likewise.
* arm/elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* arm/pe.c (arm_dllexport_name_p, arm_dllimport_name_p,
arm_mark_dllexport, arm_mark_dllimport,
arm_pe_encode_section_info): Likewise.
* arm/telf.h (ASM_OUTPUT_DEF_FROM_DECLS,
ASM_FINISH_DECLARE_OBJECT): Likewise.
* arm/thumb.c (thumb_function_prologue): Likewise.
* arm/thumb.h (ASM_OUTPUT_ASCII): Likewise.
* avr/avr.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* clipper/clix.h (ASM_OUTPUT_ASCII): Likewise.
* fx80/fx80.h (ASM_OUTPUT_ASCII): Likewise.
* i386/cygwin.h (ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/freebsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* i386/i386-interix.h (ASM_OUTPUT_LIMITED_STRING,
ASM_OUTPUT_ASCII, ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/i386-protos.h (asm_output_function_prefix): Likewise.
* i386/i386.c (asm_output_function_prefix): Likewise.
* i386/i386elf.h (ASM_OUTPUT_ASCII): Likewise.
* i386/osfrose.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* i386/ptx4-i.h (ASM_OUTPUT_ASCII): Likewise.
* i386/sco5.h (ASM_FINISH_DECLARE_OBJECT,
ASM_OUTPUT_LIMITED_STRING, ASM_OUTPUT_ASCII,
ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/sysv4.h (ASM_OUTPUT_ASCII): Likewise.
* i860/paragon.h (ASM_OUTPUT_ASCII): Likewise.
* i860/sysv3.h (ASM_OUTPUT_ASCII): Likewise.
* m32r/m32r.c (m32r_encode_section_info): Likewise.
* mcore-elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mcore/mcore.c (mcore_encode_section_info): Likewise.
* mips/elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/elf64.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/iris6.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/mips.h (ASM_OUTPUT_IDENT): Likewise.
* mips/mips.md (movdi, movsi): Likewise.
* mips/netbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* netbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* openbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* ptx4.h (ASM_FINISH_DECLARE_OBJECT, ASM_OUTPUT_LIMITED_STRING,
ASM_OUTPUT_ASCII): Likewise.
* rs6000/rs6000.c (rs6000_allocate_stack_space, output_epilog,
output_mi_thunk, output_toc): Likewise.
* rs6000/rs6000.md (movsi): Likewise.
* rs6000/sysv4.h (ASM_OUTPUT_INT, ASM_OUTPUT_SECTION_NAME): Likewise.
* tahoe/harris.h (ASM_OUTPUT_ASCII): Likewise.
* v850/v850.c (print_operand, print_operand_address,
v850_encode_data_area): Likewise.
ch:
* grant.c (globalize_decl): Constify a char*.
cp:
* decl2.c (finish_objects): Constify a char*.
* method.c (emit_thunk): Likewise.
From-SVN: r32388
2000-03-07 21:39:10 +01:00
|
|
|
|
static const char *
|
1992-01-18 00:15:38 +01:00
|
|
|
|
build_module_descriptor ()
|
|
|
|
|
{
|
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
objc_module_template
|
|
|
|
|
= start_struct (RECORD_TYPE, get_identifier (UTAG_MODULE));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Long version; */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_LONG]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("version");
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* long size; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_LONG]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("size");
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* char *name; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_CHAR]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("name"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_symtab *symtab; */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
decl_specs = get_identifier (UTAG_SYMTAB);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, xref_tag (RECORD_TYPE, decl_specs));
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("symtab"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_module_template, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Create an instance of "objc_module". */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = tree_cons (NULL_TREE, objc_module_template,
|
|
|
|
|
build_tree_list (NULL_TREE,
|
|
|
|
|
ridpointers[(int) RID_STATIC]));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_MODULES_decl = start_decl (get_identifier ("_OBJC_MODULES"),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, 1, NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_ARTIFICIAL (UOBJC_MODULES_decl) = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
DECL_IGNORED_P (UOBJC_MODULES_decl) = 1;
|
2001-05-01 22:45:55 +02:00
|
|
|
|
DECL_CONTEXT (UOBJC_MODULES_decl) = NULL_TREE;
|
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
finish_decl (UOBJC_MODULES_decl,
|
|
|
|
|
init_module_descriptor (TREE_TYPE (UOBJC_MODULES_decl)),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Mark the decl to avoid "defined but not used" warning. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
DECL_IN_SYSTEM_HEADER (UOBJC_MODULES_decl) = 1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Generate a constructor call for the module descriptor.
|
1992-01-18 00:15:38 +01:00
|
|
|
|
This code was generated by reading the grammar rules
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
of c-parse.in; Therefore, it may not be the most efficient
|
1996-07-04 00:07:53 +02:00
|
|
|
|
way of generating the requisite code. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
return 0;
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1999-07-20 12:41:10 +02:00
|
|
|
|
tree parms, function_decl, decelerator, void_list_node_1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree function_type;
|
1993-08-12 04:45:47 +02:00
|
|
|
|
tree init_function_name = get_file_function_name ('I');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Declare void __objc_execClass (void *); */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1999-07-20 12:41:10 +02:00
|
|
|
|
void_list_node_1 = build_tree_list (NULL_TREE, void_type_node);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
function_type
|
1993-04-10 01:12:37 +02:00
|
|
|
|
= build_function_type (void_type_node,
|
|
|
|
|
tree_cons (NULL_TREE, ptr_type_node,
|
1999-07-20 12:41:10 +02:00
|
|
|
|
void_list_node_1));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
function_decl = build_decl (FUNCTION_DECL,
|
|
|
|
|
get_identifier (TAG_EXECCLASS),
|
1992-01-18 00:15:38 +01:00
|
|
|
|
function_type);
|
1992-07-12 05:06:32 +02:00
|
|
|
|
DECL_EXTERNAL (function_decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_ARTIFICIAL (function_decl) = 1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
TREE_PUBLIC (function_decl) = 1;
|
1994-06-30 18:17:36 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
pushdecl (function_decl);
|
|
|
|
|
rest_of_decl_compilation (function_decl, 0, 0, 0);
|
|
|
|
|
|
|
|
|
|
parms
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
= build_tree_list (NULL_TREE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
build_unary_op (ADDR_EXPR, UOBJC_MODULES_decl, 0));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
decelerator = build_function_call (function_decl, parms);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* void _GLOBAL_$I$<gnyf> () {objc_execClass (&L_OBJC_MODULES);} */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1999-07-20 12:41:10 +02:00
|
|
|
|
start_function (void_list_node_1,
|
tree.c, tree.h (build_parse_node): Remove; was identical to build_nt.
* tree.c, tree.h (build_parse_node): Remove; was identical to
build_nt.
* c-lang.c (start_cdtor), objc/objc-act.c
(build_module_descriptor): Use build_nt instead of
build_parse_node.
cp:
* decl2.c (build_expr_from_tree), lex.c (make_pointer_declarator,
make_reference_declarator, make_call_declarator), method.c
(implicitly_declare_fn), parse.y (namespace_using_decl,
notype_unqualified_id, expr_or_declarator, new_type_id,
after_type_declarator, direct_after_type_declarator,
notype_declarator, complex_notype_declarator,
complex_direct_notype_declarator, qualified_id,
notype_qualified_id, overqualified_id, direct_new_declarator,
absdcl, direct_abstract_declarator, conversion_declarator), pt.c
(tsubst), semantics.c (begin_constructor_declarator): Use build_nt
instead of build_parse_node.
From-SVN: r39332
2001-01-29 19:57:24 +01:00
|
|
|
|
build_nt (CALL_EXPR, init_function_name,
|
|
|
|
|
/* This has the format of the output
|
|
|
|
|
of get_parm_info. */
|
|
|
|
|
tree_cons (NULL_TREE, NULL_TREE,
|
|
|
|
|
void_list_node_1),
|
|
|
|
|
NULL_TREE),
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
#if 0 /* This should be turned back on later
|
|
|
|
|
for the systems where collect is not needed. */
|
|
|
|
|
/* Make these functions nonglobal
|
|
|
|
|
so each file can use the same name. */
|
|
|
|
|
TREE_PUBLIC (current_function_decl) = 0;
|
|
|
|
|
#endif
|
|
|
|
|
TREE_USED (current_function_decl) = 1;
|
|
|
|
|
store_parm_decls ();
|
|
|
|
|
|
|
|
|
|
assemble_external (function_decl);
|
|
|
|
|
c_expand_expr_stmt (decelerator);
|
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
TREE_PUBLIC (current_function_decl) = 1;
|
|
|
|
|
|
1994-08-19 17:36:22 +02:00
|
|
|
|
function_decl = current_function_decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
finish_function (0);
|
|
|
|
|
|
|
|
|
|
/* Return the name of the constructor function. */
|
1994-08-19 17:36:22 +02:00
|
|
|
|
return XSTR (XEXP (DECL_RTL (function_decl), 0), 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* extern const char _OBJC_STRINGS[]; */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
generate_forward_declaration_to_string_table ()
|
|
|
|
|
{
|
|
|
|
|
tree sc_spec, decl_specs, expr_decl;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = tree_cons (NULL_TREE, ridpointers[(int) RID_EXTERN], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], sc_spec);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
expr_decl
|
|
|
|
|
= build_nt (ARRAY_REF, get_identifier ("_OBJC_STRINGS"), NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_STRINGS_decl = define_decl (expr_decl, decl_specs);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1995-04-27 01:18:37 +02:00
|
|
|
|
/* Return the DECL of the string IDENT in the SECTION. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1995-04-27 01:18:37 +02:00
|
|
|
|
static tree
|
|
|
|
|
get_objc_string_decl (ident, section)
|
|
|
|
|
tree ident;
|
|
|
|
|
enum string_section section;
|
|
|
|
|
{
|
1998-02-28 08:06:53 +01:00
|
|
|
|
tree chain;
|
1995-04-27 01:18:37 +02:00
|
|
|
|
|
|
|
|
|
if (section == class_names)
|
|
|
|
|
chain = class_names_chain;
|
|
|
|
|
else if (section == meth_var_names)
|
|
|
|
|
chain = meth_var_names_chain;
|
|
|
|
|
else if (section == meth_var_types)
|
|
|
|
|
chain = meth_var_types_chain;
|
1999-04-14 22:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
1995-04-27 01:18:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
for (; chain != 0; chain = TREE_VALUE (chain))
|
|
|
|
|
if (TREE_VALUE (chain) == ident)
|
|
|
|
|
return (TREE_PURPOSE (chain));
|
1995-04-27 01:18:37 +02:00
|
|
|
|
|
|
|
|
|
abort ();
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return NULL_TREE;
|
1995-04-27 01:18:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output references to all statically allocated objects. Return the DECL
|
|
|
|
|
for the array built. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1997-12-12 07:20:41 +01:00
|
|
|
|
static void
|
1995-04-27 01:18:37 +02:00
|
|
|
|
generate_static_references ()
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree decls = NULL_TREE, ident, decl_spec, expr_decl, expr = NULL_TREE;
|
1998-02-28 08:06:53 +01:00
|
|
|
|
tree class_name, class, decl, initlist;
|
1995-04-27 01:18:37 +02:00
|
|
|
|
tree cl_chain, in_chain, type;
|
|
|
|
|
int num_inst, num_class;
|
|
|
|
|
char buf[256];
|
|
|
|
|
|
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
for (cl_chain = objc_static_instances, num_class = 0;
|
|
|
|
|
cl_chain; cl_chain = TREE_CHAIN (cl_chain), num_class++)
|
|
|
|
|
{
|
|
|
|
|
for (num_inst = 0, in_chain = TREE_PURPOSE (cl_chain);
|
|
|
|
|
in_chain; num_inst++, in_chain = TREE_CHAIN (in_chain));
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "_OBJC_STATIC_INSTANCES_%d", num_class);
|
|
|
|
|
ident = get_identifier (buf);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
expr_decl = build_nt (ARRAY_REF, ident, NULL_TREE);
|
|
|
|
|
decl_spec = tree_cons (NULL_TREE, build_pointer_type (void_type_node),
|
|
|
|
|
build_tree_list (NULL_TREE,
|
1995-04-27 01:18:37 +02:00
|
|
|
|
ridpointers[(int) RID_STATIC]));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl = start_decl (expr_decl, decl_spec, 1, NULL_TREE, NULL_TREE);
|
|
|
|
|
DECL_CONTEXT (decl) = 0;
|
|
|
|
|
DECL_ARTIFICIAL (decl) = 1;
|
1995-04-27 01:18:37 +02:00
|
|
|
|
|
|
|
|
|
/* Output {class_name, ...}. */
|
|
|
|
|
class = TREE_VALUE (cl_chain);
|
|
|
|
|
class_name = get_objc_string_decl (TYPE_NAME (class), class_names);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = build_tree_list (NULL_TREE,
|
1995-04-27 01:18:37 +02:00
|
|
|
|
build_unary_op (ADDR_EXPR, class_name, 1));
|
|
|
|
|
|
|
|
|
|
/* Output {..., instance, ...}. */
|
|
|
|
|
for (in_chain = TREE_PURPOSE (cl_chain);
|
|
|
|
|
in_chain; in_chain = TREE_CHAIN (in_chain))
|
|
|
|
|
{
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, TREE_VALUE (in_chain), 1);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1995-04-27 01:18:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Output {..., NULL}. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1995-04-27 01:18:37 +02:00
|
|
|
|
|
|
|
|
|
expr = build_constructor (TREE_TYPE (decl), nreverse (initlist));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (decl, expr, NULL_TREE);
|
1995-04-27 01:18:37 +02:00
|
|
|
|
TREE_USED (decl) = 1;
|
|
|
|
|
|
|
|
|
|
type = build_array_type (build_pointer_type (void_type_node), 0);
|
|
|
|
|
decl = build_decl (VAR_DECL, ident, type);
|
|
|
|
|
TREE_USED (decl) = 1;
|
varasm.c (assemble_alias): Use DECL_ASSEMBLER_NAME...
* varasm.c (assemble_alias): Use DECL_ASSEMBLER_NAME, not the
contents of the RTL, to determine the name of the object.
* tree.h (DECL_RTL): Allocate RTL lazily.
(SET_DECL_RTL): New macro.
(DECL_RTL_SET_P): Likewise.
(COPY_DECL_RTL): Likewise.
(DECL_RTL_IF_SET): Likewise.
* varasm.c (make_decl_rtl): Add assertions about the kind of
declaration we are processing.
* c-decl.c (duplicate_decls): Use COPY_DECL_RTL, DECL_RTL_SET_P, etc.
(start_decl): Likewise.
(finish_decl): Likewise.
* c-semantics.c (emit_local_var): Likewise.
* calls.c (expand_call): Likewise.
* dbxout.c (dbxout_symbol): Likewise.
* emit-rtl.c (unshare_all_rtl): Likewise.
(unshare_all_decls): Likewise.
(reset_used_decls): Likewise.
* expr.c (store_constructor): Likewise.
(safe_from_p): Likewise.
(expand_expr): Likewise.
* function.c (put_var_into_stack): Likewise.
(instantiate_decls_1): Likewise.
(assign_parms): Likewise.
(expand_function_start): Likewise.
(expand_function_end): Likewise.
* ggc-common.c (gcc_mark_trees): Likewise.
* integrate.c (function_cannot_inline_p): Likewise.
(copy_decl_for_inlining): Likewise.
(expand_inline_function): Likewise.
(integrate_parm_decls): Likewise.
(integrate_decl_tree): Likewise.
* print-tree.c (print_node): Likewise.
* reg-stack.c (stack_result): Likewise.
* stmt.c (label_rtx): Likewise.
(expand_return): Likewise.
(expand_decl): Likewise.
(expand_decl_cleanup): Likewise.
(expand_anon_union_decl): Likewise.
* toplev.c (check_global_declarations): Likewise.
(rest_of_decl_compilation): Likewise.
* tree.c (simple_cst_equal): Likewise.
* objc/objc-act.c (generate_static_references): Likewise.
* class.c (build_clone): Use COPY_DECL_RTL, DECL_RTL_SET_P, etc.
* cp-tree.h (DECL_IN_MEMORY_P): Likewise.
* decl.c (duplicate_decls): Likewise.
(builtin_function): Likewise.
(build_library_fn): Likewise.
(build_cp_library_fn): Likewise.
(check_initializer): Likewise.
(cp_finish_decl): Likewise.
* decl2.c (grokfield): Likewise.
(grok_function_init): Remove #if 0'd code.
(finish_anon_union): Use COPY_DECL_RTL, DECL_RTL_SET_P, etc.
* friend.c (do_friend): Likewise.
* init.c (get_temp_regvar): Likewise.
* method.c (make_thunk): Likewise.
* pt.c (tsubst_friend_function): Likewise.
(tsubst_decl): Likewise.
(regenerate_decl_from_template): Likewise.
* semantics.c (genrtl_named_return_value): Likewise.
(expand_body): Likewise.
(genrtl_finish_function): Likewise.
* tree.c (cp_tree_equal): Likewise.
* com.c (ffecom_member_phase_2): Use COPY_DECL_RTL,
DECL_RTL_SET_P, etc.
(duplicate_decls): Likewise.
(start_decl): Likewise.
* class.c (build_static_field_ref): Likewise.
(make_method_value): Likewise.
(get_dispatch_table): Likewise.
* decl.c (push_jvm_slot): Use COPY_DECL_RTL, DECL_RTL_SET_P, etc.
From-SVN: r40482
2001-03-15 03:51:03 +01:00
|
|
|
|
TREE_STATIC (decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decls
|
|
|
|
|
= tree_cons (NULL_TREE, build_unary_op (ADDR_EXPR, decl, 1), decls);
|
1995-04-27 01:18:37 +02:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
decls = tree_cons (NULL_TREE, build_int_2 (0, 0), decls);
|
1995-04-27 01:18:37 +02:00
|
|
|
|
ident = get_identifier ("_OBJC_STATIC_INSTANCES");
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
expr_decl = build_nt (ARRAY_REF, ident, NULL_TREE);
|
|
|
|
|
decl_spec = tree_cons (NULL_TREE, build_pointer_type (void_type_node),
|
|
|
|
|
build_tree_list (NULL_TREE,
|
1995-04-27 01:18:37 +02:00
|
|
|
|
ridpointers[(int) RID_STATIC]));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
static_instances_decl
|
|
|
|
|
= start_decl (expr_decl, decl_spec, 1, NULL_TREE, NULL_TREE);
|
1997-03-15 13:53:30 +01:00
|
|
|
|
TREE_USED (static_instances_decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_CONTEXT (static_instances_decl) = 0;
|
|
|
|
|
DECL_ARTIFICIAL (static_instances_decl) = 1;
|
1995-04-27 01:18:37 +02:00
|
|
|
|
expr = build_constructor (TREE_TYPE (static_instances_decl),
|
|
|
|
|
nreverse (decls));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (static_instances_decl, expr, NULL_TREE);
|
1995-04-27 01:18:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Output all strings. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static void
|
1993-04-10 01:12:37 +02:00
|
|
|
|
generate_strings ()
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree sc_spec, decl_specs, expr_decl;
|
|
|
|
|
tree chain, string_expr;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree string, decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (chain = class_names_chain; chain; chain = TREE_CHAIN (chain))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
string = TREE_VALUE (chain);
|
|
|
|
|
decl = TREE_PURPOSE (chain);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec
|
|
|
|
|
= tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], sc_spec);
|
|
|
|
|
expr_decl = build_nt (ARRAY_REF, DECL_NAME (decl), NULL_TREE);
|
|
|
|
|
decl = start_decl (expr_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
|
2001-05-01 22:45:55 +02:00
|
|
|
|
DECL_CONTEXT (decl) = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
string_expr = my_build_string (IDENTIFIER_LENGTH (string) + 1,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
IDENTIFIER_POINTER (string));
|
|
|
|
|
finish_decl (decl, string_expr, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (chain = meth_var_names_chain; chain; chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
string = TREE_VALUE (chain);
|
|
|
|
|
decl = TREE_PURPOSE (chain);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec
|
|
|
|
|
= tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], sc_spec);
|
|
|
|
|
expr_decl = build_nt (ARRAY_REF, DECL_NAME (decl), NULL_TREE);
|
|
|
|
|
decl = start_decl (expr_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
|
2001-05-01 22:45:55 +02:00
|
|
|
|
DECL_CONTEXT (decl) = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
string_expr = my_build_string (IDENTIFIER_LENGTH (string) + 1,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
IDENTIFIER_POINTER (string));
|
|
|
|
|
finish_decl (decl, string_expr, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (chain = meth_var_types_chain; chain; chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
string = TREE_VALUE (chain);
|
|
|
|
|
decl = TREE_PURPOSE (chain);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec
|
|
|
|
|
= tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], sc_spec);
|
|
|
|
|
expr_decl = build_nt (ARRAY_REF, DECL_NAME (decl), NULL_TREE);
|
|
|
|
|
decl = start_decl (expr_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
|
2001-05-01 22:45:55 +02:00
|
|
|
|
DECL_CONTEXT (decl) = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
string_expr = my_build_string (IDENTIFIER_LENGTH (string) + 1,
|
|
|
|
|
IDENTIFIER_POINTER (string));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (decl, string_expr, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
build_selector_reference_decl ()
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree decl, ident;
|
|
|
|
|
char buf[256];
|
|
|
|
|
static int idx = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
sprintf (buf, "_OBJC_SELECTOR_REFERENCES_%d", idx++);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
ident = get_identifier (buf);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
decl = build_decl (VAR_DECL, ident, selector_type);
|
|
|
|
|
DECL_EXTERNAL (decl) = 1;
|
|
|
|
|
TREE_PUBLIC (decl) = 1;
|
|
|
|
|
TREE_USED (decl) = 1;
|
|
|
|
|
TREE_READONLY (decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_ARTIFICIAL (decl) = 1;
|
|
|
|
|
DECL_CONTEXT (decl) = 0;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2001-01-11 00:06:30 +01:00
|
|
|
|
make_decl_rtl (decl, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
pushdecl_top_level (decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return decl;
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* Just a handy wrapper for add_objc_string. */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
build_selector (ident)
|
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
tree expr = add_objc_string (ident, meth_var_names);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
if (flag_typed_selectors)
|
|
|
|
|
return expr;
|
|
|
|
|
else
|
|
|
|
|
return build_c_cast (selector_type, expr); /* cast! */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Synthesize the following expr: (char *)&_OBJC_STRINGS[<offset>]
|
|
|
|
|
The cast stops the compiler from issuing the following message:
|
|
|
|
|
grok.m: warning: initialization of non-const * pointer from const *
|
|
|
|
|
grok.m: warning: initialization between incompatible pointer types. */
|
|
|
|
|
|
1998-06-29 19:36:07 +02:00
|
|
|
|
#if 0
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static tree
|
|
|
|
|
build_msg_pool_reference (offset)
|
|
|
|
|
int offset;
|
|
|
|
|
{
|
|
|
|
|
tree expr = build_int_2 (offset, 0);
|
|
|
|
|
tree cast;
|
|
|
|
|
|
|
|
|
|
expr = build_array_ref (UOBJC_STRINGS_decl, expr);
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, expr, 0);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
cast = build_tree_list (build_tree_list (NULL_TREE,
|
|
|
|
|
ridpointers[(int) RID_CHAR]),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, NULL_TREE));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_TYPE (expr) = groktypename (cast);
|
|
|
|
|
return expr;
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
init_selector (offset)
|
|
|
|
|
int offset;
|
|
|
|
|
{
|
|
|
|
|
tree expr = build_msg_pool_reference (offset);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
TREE_TYPE (expr) = selector_type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return expr;
|
|
|
|
|
}
|
1998-06-22 07:46:35 +02:00
|
|
|
|
#endif
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
build_selector_translation_table ()
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree sc_spec, decl_specs;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree chain, initlist = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int offset = 0;
|
1999-04-14 22:28:54 +02:00
|
|
|
|
tree decl = NULL_TREE, var_decl, name;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (chain = sel_ref_chain; chain; chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
tree expr;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
expr = build_selector (TREE_VALUE (chain));
|
|
|
|
|
|
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
name = DECL_NAME (TREE_PURPOSE (chain));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = build_tree_list (NULL_TREE, ridpointers[(int) RID_STATIC]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* static SEL _OBJC_SELECTOR_REFERENCES_n = ...; */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = tree_cons (NULL_TREE, selector_type, sc_spec);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
var_decl = name;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* The `decl' that is returned from start_decl is the one that we
|
1993-04-10 01:12:37 +02:00
|
|
|
|
forward declared in `build_selector_reference' */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl = start_decl (var_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* add one for the '\0' character */
|
|
|
|
|
offset += IDENTIFIER_LENGTH (TREE_VALUE (chain)) + 1;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (decl, expr, NULL_TREE);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (flag_typed_selectors)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree eltlist = NULL_TREE;
|
1994-06-30 18:17:36 +02:00
|
|
|
|
tree encoding = get_proto_encoding (TREE_PURPOSE (chain));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
eltlist = tree_cons (NULL_TREE, expr, NULL_TREE);
|
|
|
|
|
eltlist = tree_cons (NULL_TREE, encoding, eltlist);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
expr = build_constructor (objc_selector_template,
|
|
|
|
|
nreverse (eltlist));
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
/* Cause the variable and its initial value to be actually output. */
|
1993-04-13 03:58:32 +02:00
|
|
|
|
DECL_EXTERNAL (UOBJC_SELECTOR_TABLE_decl) = 0;
|
|
|
|
|
TREE_STATIC (UOBJC_SELECTOR_TABLE_decl) = 1;
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* NULL terminate the list and fix the decl for output. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
2000-04-12 09:22:32 +02:00
|
|
|
|
DECL_INITIAL (UOBJC_SELECTOR_TABLE_decl) = objc_ellipsis_node;
|
1993-08-01 07:53:52 +02:00
|
|
|
|
initlist = build_constructor (TREE_TYPE (UOBJC_SELECTOR_TABLE_decl),
|
|
|
|
|
nreverse (initlist));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (UOBJC_SELECTOR_TABLE_decl, initlist, NULL_TREE);
|
|
|
|
|
current_function_decl = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
static tree
|
|
|
|
|
get_proto_encoding (proto)
|
|
|
|
|
tree proto;
|
|
|
|
|
{
|
|
|
|
|
tree encoding;
|
|
|
|
|
if (proto)
|
|
|
|
|
{
|
|
|
|
|
tree tmp_decl;
|
|
|
|
|
|
|
|
|
|
if (! METHOD_ENCODING (proto))
|
|
|
|
|
{
|
|
|
|
|
tmp_decl = build_tmp_function_decl ();
|
|
|
|
|
hack_method_prototype (proto, tmp_decl);
|
|
|
|
|
encoding = encode_method_prototype (proto, tmp_decl);
|
|
|
|
|
METHOD_ENCODING (proto) = encoding;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
encoding = METHOD_ENCODING (proto);
|
|
|
|
|
|
|
|
|
|
return add_objc_string (encoding, meth_var_types);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return build_int_2 (0, 0);
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* sel_ref_chain is a list whose "value" fields will be instances of
|
|
|
|
|
identifier_node that represent the selector. */
|
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
static tree
|
|
|
|
|
build_typed_selector_reference (ident, proto)
|
|
|
|
|
tree ident, proto;
|
|
|
|
|
{
|
|
|
|
|
tree *chain = &sel_ref_chain;
|
|
|
|
|
tree expr;
|
|
|
|
|
int index = 0;
|
|
|
|
|
|
|
|
|
|
while (*chain)
|
|
|
|
|
{
|
|
|
|
|
if (TREE_PURPOSE (*chain) == ident && TREE_VALUE (*chain) == proto)
|
|
|
|
|
goto return_at_index;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
index++;
|
|
|
|
|
chain = &TREE_CHAIN (*chain);
|
|
|
|
|
}
|
|
|
|
|
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
*chain = tree_cons (proto, ident, NULL_TREE);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
|
|
|
|
|
return_at_index:
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR,
|
|
|
|
|
build_array_ref (UOBJC_SELECTOR_TABLE_decl,
|
|
|
|
|
build_int_2 (index, 0)),
|
|
|
|
|
1);
|
|
|
|
|
return build_c_cast (selector_type, expr);
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static tree
|
|
|
|
|
build_selector_reference (ident)
|
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
tree *chain = &sel_ref_chain;
|
1994-06-30 18:17:36 +02:00
|
|
|
|
tree expr;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int index = 0;
|
|
|
|
|
|
|
|
|
|
while (*chain)
|
|
|
|
|
{
|
|
|
|
|
if (TREE_VALUE (*chain) == ident)
|
|
|
|
|
return (flag_next_runtime
|
|
|
|
|
? TREE_PURPOSE (*chain)
|
1993-04-13 03:58:32 +02:00
|
|
|
|
: build_array_ref (UOBJC_SELECTOR_TABLE_decl,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
build_int_2 (index, 0)));
|
|
|
|
|
|
|
|
|
|
index++;
|
|
|
|
|
chain = &TREE_CHAIN (*chain);
|
|
|
|
|
}
|
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
expr = build_selector_reference_decl ();
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
*chain = tree_cons (expr, ident, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return (flag_next_runtime
|
1994-06-30 18:17:36 +02:00
|
|
|
|
? expr
|
1993-04-13 03:58:32 +02:00
|
|
|
|
: build_array_ref (UOBJC_SELECTOR_TABLE_decl,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
build_int_2 (index, 0)));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
build_class_reference_decl ()
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
tree decl, ident;
|
|
|
|
|
char buf[256];
|
|
|
|
|
static int idx = 0;
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "_OBJC_CLASS_REFERENCES_%d", idx++);
|
|
|
|
|
|
|
|
|
|
ident = get_identifier (buf);
|
|
|
|
|
|
|
|
|
|
decl = build_decl (VAR_DECL, ident, objc_class_type);
|
|
|
|
|
DECL_EXTERNAL (decl) = 1;
|
|
|
|
|
TREE_PUBLIC (decl) = 1;
|
|
|
|
|
TREE_USED (decl) = 1;
|
|
|
|
|
TREE_READONLY (decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_CONTEXT (decl) = 0;
|
|
|
|
|
DECL_ARTIFICIAL (decl) = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2001-01-11 00:06:30 +01:00
|
|
|
|
make_decl_rtl (decl, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
pushdecl_top_level (decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Create a class reference, but don't create a variable to reference
|
|
|
|
|
it. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
add_class_reference (ident)
|
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
tree chain;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((chain = cls_ref_chain))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree tail;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (ident == TREE_VALUE (chain))
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
tail = chain;
|
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
}
|
|
|
|
|
while (chain);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Append to the end of the list */
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
TREE_CHAIN (tail) = tree_cons (NULL_TREE, ident, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
cls_ref_chain = tree_cons (NULL_TREE, ident, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Get a class reference, creating it if necessary. Also create the
|
|
|
|
|
reference variable. */
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
get_class_reference (ident)
|
|
|
|
|
tree ident;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
tree *chain;
|
|
|
|
|
tree decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (chain = &cls_ref_chain; *chain; chain = &TREE_CHAIN (*chain))
|
|
|
|
|
if (TREE_VALUE (*chain) == ident)
|
|
|
|
|
{
|
|
|
|
|
if (! TREE_PURPOSE (*chain))
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
TREE_PURPOSE (*chain) = build_class_reference_decl ();
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return TREE_PURPOSE (*chain);
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
decl = build_class_reference_decl ();
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
*chain = tree_cons (decl, ident, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return decl;
|
|
|
|
|
}
|
|
|
|
|
else
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree params;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
add_class_reference (ident);
|
1993-04-14 18:08:43 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
params = build_tree_list (NULL_TREE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
my_build_string (IDENTIFIER_LENGTH (ident) + 1,
|
|
|
|
|
IDENTIFIER_POINTER (ident)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
assemble_external (objc_get_class_decl);
|
|
|
|
|
return build_function_call (objc_get_class_decl, params);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* SEL_REFDEF_CHAIN is a list whose "value" fields will be instances
|
1993-04-10 01:12:37 +02:00
|
|
|
|
of identifier_node that represent the selector. It returns the
|
|
|
|
|
offset of the selector from the beginning of the _OBJC_STRINGS
|
|
|
|
|
pool. This offset is typically used by init_selector during code
|
|
|
|
|
generation.
|
|
|
|
|
|
|
|
|
|
For each string section we have a chain which maps identifier nodes
|
1996-07-04 00:07:53 +02:00
|
|
|
|
to decls for the strings. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
add_objc_string (ident, section)
|
|
|
|
|
tree ident;
|
|
|
|
|
enum string_section section;
|
|
|
|
|
{
|
|
|
|
|
tree *chain, decl;
|
|
|
|
|
|
|
|
|
|
if (section == class_names)
|
|
|
|
|
chain = &class_names_chain;
|
|
|
|
|
else if (section == meth_var_names)
|
|
|
|
|
chain = &meth_var_names_chain;
|
|
|
|
|
else if (section == meth_var_types)
|
|
|
|
|
chain = &meth_var_types_chain;
|
1999-04-14 22:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
while (*chain)
|
|
|
|
|
{
|
|
|
|
|
if (TREE_VALUE (*chain) == ident)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return build_unary_op (ADDR_EXPR, TREE_PURPOSE (*chain), 1);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
chain = &TREE_CHAIN (*chain);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
decl = build_objc_string_decl (section);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
*chain = tree_cons (decl, ident, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return build_unary_op (ADDR_EXPR, decl, 1);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
build_objc_string_decl (section)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
enum string_section section;
|
|
|
|
|
{
|
|
|
|
|
tree decl, ident;
|
|
|
|
|
char buf[256];
|
|
|
|
|
static int class_names_idx = 0;
|
|
|
|
|
static int meth_var_names_idx = 0;
|
|
|
|
|
static int meth_var_types_idx = 0;
|
|
|
|
|
|
|
|
|
|
if (section == class_names)
|
|
|
|
|
sprintf (buf, "_OBJC_CLASS_NAME_%d", class_names_idx++);
|
|
|
|
|
else if (section == meth_var_names)
|
|
|
|
|
sprintf (buf, "_OBJC_METH_VAR_NAME_%d", meth_var_names_idx++);
|
|
|
|
|
else if (section == meth_var_types)
|
|
|
|
|
sprintf (buf, "_OBJC_METH_VAR_TYPE_%d", meth_var_types_idx++);
|
|
|
|
|
|
|
|
|
|
ident = get_identifier (buf);
|
|
|
|
|
|
|
|
|
|
decl = build_decl (VAR_DECL, ident, build_array_type (char_type_node, 0));
|
|
|
|
|
DECL_EXTERNAL (decl) = 1;
|
|
|
|
|
TREE_PUBLIC (decl) = 1;
|
|
|
|
|
TREE_USED (decl) = 1;
|
|
|
|
|
TREE_READONLY (decl) = 1;
|
|
|
|
|
TREE_CONSTANT (decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_CONTEXT (decl) = 0;
|
|
|
|
|
DECL_ARTIFICIAL (decl) = 1;
|
1995-04-27 01:18:37 +02:00
|
|
|
|
|
2001-01-11 00:06:30 +01:00
|
|
|
|
make_decl_rtl (decl, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
pushdecl_top_level (decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return decl;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
objc_declare_alias (alias_ident, class_ident)
|
|
|
|
|
tree alias_ident;
|
|
|
|
|
tree class_ident;
|
|
|
|
|
{
|
|
|
|
|
if (is_class_name (class_ident) != class_ident)
|
|
|
|
|
warning ("Cannot find class `%s'", IDENTIFIER_POINTER (class_ident));
|
|
|
|
|
else if (is_class_name (alias_ident))
|
|
|
|
|
warning ("Class `%s' already exists", IDENTIFIER_POINTER (alias_ident));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
1993-04-10 01:12:37 +02:00
|
|
|
|
alias_chain = tree_cons (class_ident, alias_ident, alias_chain);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
objc_declare_class (ident_list)
|
|
|
|
|
tree ident_list;
|
|
|
|
|
{
|
|
|
|
|
tree list;
|
|
|
|
|
|
|
|
|
|
for (list = ident_list; list; list = TREE_CHAIN (list))
|
|
|
|
|
{
|
|
|
|
|
tree ident = TREE_VALUE (list);
|
|
|
|
|
tree decl;
|
|
|
|
|
|
|
|
|
|
if ((decl = lookup_name (ident)))
|
|
|
|
|
{
|
|
|
|
|
error ("`%s' redeclared as different kind of symbol",
|
|
|
|
|
IDENTIFIER_POINTER (ident));
|
|
|
|
|
error_with_decl (decl, "previous declaration of `%s'");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (! is_class_name (ident))
|
|
|
|
|
{
|
|
|
|
|
tree record = xref_tag (RECORD_TYPE, ident);
|
|
|
|
|
TREE_STATIC_TEMPLATE (record) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
class_chain = tree_cons (NULL_TREE, ident, class_chain);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree
|
|
|
|
|
is_class_name (ident)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
tree chain;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (lookup_interface (ident))
|
|
|
|
|
return ident;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (chain = class_chain; chain; chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
if (ident == TREE_VALUE (chain))
|
|
|
|
|
return ident;
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (chain = alias_chain; chain; chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
if (ident == TREE_VALUE (chain))
|
|
|
|
|
return TREE_PURPOSE (chain);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
lookup_interface (ident)
|
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
tree chain;
|
|
|
|
|
|
|
|
|
|
for (chain = interface_chain; chain; chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
if (ident == CLASS_NAME (chain))
|
|
|
|
|
return chain;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
objc_copy_list (list, head)
|
|
|
|
|
tree list;
|
|
|
|
|
tree *head;
|
|
|
|
|
{
|
|
|
|
|
tree newlist = NULL_TREE, tail = NULL_TREE;
|
|
|
|
|
|
|
|
|
|
while (list)
|
|
|
|
|
{
|
|
|
|
|
tail = copy_node (list);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* The following statement fixes a bug when inheriting instance
|
|
|
|
|
variables that are declared to be bitfields. finish_struct
|
* Eliminate DECL_FIELD_SIZE.
* builtins.c (built_in_class_names, built_in_names): New variables.
* c-decl.c (finish_struct): Set specified size in DECL_SIZE.
* expr.c (expand_expr, case COMPONENT_REF): Get field size from
DECL_SIZE, not DECL_FIELD_SIZE.
* print-tree.c (print_node): Remove code that prints extra blank
lines in some cases.
Properly handle inline and builtin function cases.
* stor-layout.c (layout_decl): Get specified size from DEC_SIZE.
* tree.h (built_in_class_named, built_in_names): New declarations.
(union tree_decl): Rename internal unions to u1 and u2 and change
some of their components.
Add new field built_in_class.
(DECL_ALIGN, DECL_INCOMING_RTL, DECL_SAVED_INSNS, DECL_FRAME_SIZE):
Reflect above changes.
(DECL_FUNCTION_CODE, DECL_BUILT_IN_CLASS): Likewise.
(DECL_SET_FUNCTION_CODE, DECL_FIELD_SIZE): Deleted.
* objc/objc-act.c (objc_copy_list): Use DECL_SIZE, not DECL_FIELD_SIZE.
(encode_field_decl): Likewise; also remove obsolete test for bitfield.
* ch/ch-tree.h (DECL_ACTION_NESTING_LEVEL): Use new tree union name.
* ch/decl.c (finish_struct): Don't clear DECL_FIELD_SIZE.
* ch/typeck.c (make_chill_struct_type): Likewise.
(apply_decl_field_layout): General cleanup.
Set DECL_SIZE instead of DECL_FIELD_SIZE.
* cp/class.c (build_vtbl_or_vbase_field, check_methods): Don't clear
DECL_FIELD_SIZE.
(check_bitfield_decl, check_field_decls): Set DECL_SIZE, not
DECL_FIELD_SIZE.
* cp/rtti.c (expand_class_desc): Likewise.
* cp/cp-tree.h (DECL_INIT_PRIORITY): Use underlying union name.
(THUNK_VCALL_OFFSET): Likewise.
(THUNK_DELTA): Reflect changes in ../tree.h.
* java/java-tree.h (LABEL_PC): Relect name changes in ../tree.h.
(DECL_BIT_INDEX): Use underlying representation.
* java/parse.h (DECL_INHERITED_SOURCE_LINE): Likewise.
From-SVN: r32249
2000-02-29 03:34:48 +01:00
|
|
|
|
expects to find the width of the bitfield in DECL_INITIAL. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (DECL_BIT_FIELD (tail) && DECL_INITIAL (tail) == 0)
|
* Eliminate DECL_FIELD_SIZE.
* builtins.c (built_in_class_names, built_in_names): New variables.
* c-decl.c (finish_struct): Set specified size in DECL_SIZE.
* expr.c (expand_expr, case COMPONENT_REF): Get field size from
DECL_SIZE, not DECL_FIELD_SIZE.
* print-tree.c (print_node): Remove code that prints extra blank
lines in some cases.
Properly handle inline and builtin function cases.
* stor-layout.c (layout_decl): Get specified size from DEC_SIZE.
* tree.h (built_in_class_named, built_in_names): New declarations.
(union tree_decl): Rename internal unions to u1 and u2 and change
some of their components.
Add new field built_in_class.
(DECL_ALIGN, DECL_INCOMING_RTL, DECL_SAVED_INSNS, DECL_FRAME_SIZE):
Reflect above changes.
(DECL_FUNCTION_CODE, DECL_BUILT_IN_CLASS): Likewise.
(DECL_SET_FUNCTION_CODE, DECL_FIELD_SIZE): Deleted.
* objc/objc-act.c (objc_copy_list): Use DECL_SIZE, not DECL_FIELD_SIZE.
(encode_field_decl): Likewise; also remove obsolete test for bitfield.
* ch/ch-tree.h (DECL_ACTION_NESTING_LEVEL): Use new tree union name.
* ch/decl.c (finish_struct): Don't clear DECL_FIELD_SIZE.
* ch/typeck.c (make_chill_struct_type): Likewise.
(apply_decl_field_layout): General cleanup.
Set DECL_SIZE instead of DECL_FIELD_SIZE.
* cp/class.c (build_vtbl_or_vbase_field, check_methods): Don't clear
DECL_FIELD_SIZE.
(check_bitfield_decl, check_field_decls): Set DECL_SIZE, not
DECL_FIELD_SIZE.
* cp/rtti.c (expand_class_desc): Likewise.
* cp/cp-tree.h (DECL_INIT_PRIORITY): Use underlying union name.
(THUNK_VCALL_OFFSET): Likewise.
(THUNK_DELTA): Reflect changes in ../tree.h.
* java/java-tree.h (LABEL_PC): Relect name changes in ../tree.h.
(DECL_BIT_INDEX): Use underlying representation.
* java/parse.h (DECL_INHERITED_SOURCE_LINE): Likewise.
From-SVN: r32249
2000-02-29 03:34:48 +01:00
|
|
|
|
DECL_INITIAL (tail) = DECL_SIZE (tail);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
newlist = chainon (newlist, tail);
|
|
|
|
|
list = TREE_CHAIN (list);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
*head = newlist;
|
|
|
|
|
return tail;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Used by: build_private_template, get_class_ivars, and
|
|
|
|
|
continue_class. COPY is 1 when called from @defs. In this case
|
|
|
|
|
copy all fields. Otherwise don't copy leaf ivars since we rely on
|
|
|
|
|
them being side-effected exactly once by finish_struct. */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
build_ivar_chain (interface, copy)
|
|
|
|
|
tree interface;
|
|
|
|
|
int copy;
|
|
|
|
|
{
|
|
|
|
|
tree my_name, super_name, ivar_chain;
|
|
|
|
|
|
|
|
|
|
my_name = CLASS_NAME (interface);
|
|
|
|
|
super_name = CLASS_SUPER_NAME (interface);
|
|
|
|
|
|
|
|
|
|
/* Possibly copy leaf ivars. */
|
|
|
|
|
if (copy)
|
|
|
|
|
objc_copy_list (CLASS_IVARS (interface), &ivar_chain);
|
|
|
|
|
else
|
|
|
|
|
ivar_chain = CLASS_IVARS (interface);
|
|
|
|
|
|
|
|
|
|
while (super_name)
|
|
|
|
|
{
|
|
|
|
|
tree op1;
|
|
|
|
|
tree super_interface = lookup_interface (super_name);
|
|
|
|
|
|
|
|
|
|
if (!super_interface)
|
|
|
|
|
{
|
|
|
|
|
/* fatal did not work with 2 args...should fix */
|
|
|
|
|
error ("Cannot find interface declaration for `%s', superclass of `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (super_name),
|
|
|
|
|
IDENTIFIER_POINTER (my_name));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
exit (FATAL_EXIT_CODE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (super_interface == interface)
|
diagnostic.h (set_internal_error_function): Renamed.
* diagnostic.h (set_internal_error_function): Renamed.
* toplev.h (internal_error): Renamed from fatal.
(pfatal_with_name): Deleted.
(fatal_io_error): Now has printf-style arguments.
* diagnostic.c (pfatal_with_name): Deleted.
(fatal_io_error): Rework to have args in printf-style.
(set_internal_error_function): Renamed from set_fatal_function.
(internal_error): Renamed from fatal.
(error_recursion, fancy_abort): Call internal_error instead of fatal.
* dwarf2out.c (get_cfa_from_loc_descr): Likewise.
* emit-rtl.c (gen_realpart, gen_imagpart): Likewise.
* expr.c (check_max_integer_computation_mode, expand_expr): Likewise.
* flow.c (verify_flow_info): Likewise.
* config/arm/arm.c (thumb_unexpanded_epilogue): Likewise.
* config/mips/mips.c (save_restore_insns): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
(dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/expr.c (java_lang_expand_expr): Likewise.
* java/jcf-parse.c (get_constant): Likewise.
* java/mangle.c (java_mangle_decl): Likewise.
* java/parse.y (make_nested_class_name, java_complete_lhs): Likewise.
(operator_string): Likewise.
* except.c (duplicate_eh_handlers): Call abort instead of fatal.
* flow.c (verify_flow_info): Likewise.
* ch/convert.c (convert): Likewise.
* ch/except.c (pop_handler, chill_check_no_handlers): Likewise.
* ch/expr.c (chill_expand_expr): Likewise.
* ch/parse.c (peek_token_, pushback_token, require): Likewise.
* config/arm/arm.c (thumb_load_double_from_address): Likewise.
* config/avr/avr.c (pttreg_to_str, unique_section): Likewise.
(avr_normalize_condition): Likewise.
* config/c4x/c4x.c (c4x_emit_libcall, c4x_valid_operands): Likewise.
* config/dsp16xx/dsp16xx.c (dsp16xx_reg_class_from_letter): Likewise.
(limit_reload_class, double_reg_to_memory): Likewise.
(print_operand_address, emit_1600_code_shift): Likewise.
(gen_tst_reg, gen_compare_reg): Likewise.
* config/m68hc11/m68hc11.c (m68hc11_emit_libcall): Likewise.
* cp/decl.c (pushdecl): Likewise.
* java/check-init.c (check_init): Likewise.
* java/class.c (build_class_ref): Likewise.
* java/constants.c (write_constant_pool): Likewise.
* java/decl.c (start_java_method): Likewise.
* java/expr.c (push_type, java_stack_pop, java_stack_swap): Likewise.
(java_stack_dup, encode_newarray_type): Likewise.
(build_java_array_length_access): Likewise.
(build_java_check_indexed_type, expand_java_pushc): Likewise.
(build_java_soft_divmod, build_invokeinterface): Likewise.
* java/java-tree.h (INNER_CLASS_P): Likewise.
* java/jcf-parse.c (parse_signature, get_name_constant): Likewise.
(give_name_to_class, get_class_constant): Likewise.
* java/jcf-write.c (CHECK_PUT, CHECK_OP, get_access_flags): Likewise.
(find_constant_index, generate_bytecode_conditional): Likewise.
(generate_bytecode_insns, perform_relocations): Likewise.
* java/lex.c (java_unget_unicode, java_lex): Likewise.
* java/mangle.c (mangle_type, mangle_record_type): Likewise.
(mangle_pointer_type, mangle_array_type, init_mangling): Likewise.
(finish_mangling): Likewise.
* java/parse.h (MARK_FINAL_PARMS): Likewise.
* java/parse.y (pop_current_osb, unreachable_stmt_error): Likewise.
(obtain_incomplete_type, java_complete_class): Likewise.
(java_check_regular_methods, java_complete_expand_method): Likewise.
(cut_identifier_in_qualified, check_deprecation): Likewise.
(patch_invoke, find_applicable_accessible_methods_list): Likewise.
(java_complete_lhs, lookup_name_in_blocks): Likewise.
(check_final_variable_indirect_assignment, build_unaryop): Likewise.
* java/typeck.c (set_local_type, parse_signature_type): Likewise.
(parse_signature_string, build_java_signature): Likewise;
(set_java_signature): Likewise.
* java/verify.c (type_stack_dup, CHECK_PC_IN_RANGE): Likewise.
* c-parse.in (methoddef): Call fatal_error instead of fatal.
* objc/objc-act.c (build_ivar_chain): Likewise.
* cp/except.c (decl_is_java_type): Likewise.
* cp/init.c (build_java_class_ref): Likewise.
* cp/init.c (build_new_1): Likewise.
* f/com.c (ffecom_init_0): Likewise.
* java/class.c (add_method, build_static_field_ref): Likewise.
* java/expr.c (build_known_method_ref, expand_invoke): Likewise.
* java/jcf-parse.c (get_constant, jcf_parse): Likewise.
* java/lex.c (java_new_new_lexer): Likewise.
* java/jv-scan.c (main): Likewise.
(fatal_error): Renamed from fatal.
* dwarfout.c (dwarfout_init): Call fatal_io_error instead of
pfatal_with_name.
* graph.c (clean_graph_dump_file): Likewise.
* profile.c (init_branch_prob): Likewise.
* ch/grant.c (write_grant_file): Likewise.
* ch/lex.c (init_parse, same_file, yywrap): Likewise.
* f/com.c (init_parse): Likewise.
* java/jcf-parse.c (yyparse): Likewise.
* objc/objc-act.c (objc_init): Likewise.
* java/jcf-parse.c (jcf_parse_source): Call fatal_io_error, not fatal.
(yyparse): Likewise.
* java/jcf-write.c (make_class_file_name, write_classfile): Likewise.
* java/lex.c (java_get_line_col): Likewise.
* hash.c (hash_allocate): Don't check for failure returns from
obstack functions that can't fail.
(hash_table_init_n, hash_table_init): Likewise; also now return void.
* hash.h (hash_table_init_n, hash_table_init): Now return void.
* cp/decl.c (build_typename_type): hash_table_init now returns void.
* ch/lang.c (GNU_xref_begin, GNU_xref_end): Deleted.
* ch/lex.c (convert_bitstring): Delete check for alloca failure.
* config/dsp16xx/dsp16xx.c (dsp16xx_invalid_register_for_compare):
Deleted.
* config/dsp16xx/dsp16xx.md (unnamed cmphi): Call abort instead of it.
* f/com.c (ffecom_decode_include_option_): Make errors non-fatal.
* f/lex.c (ffelex_cfelex_, ffelex_get_directive_line_): Likewise.
(ffelex_hash_): Likewise.
* config/arm/arm.c (arm_override_options): Likewise.
* config/avr/avr.c (avr_override_options): Likewise.
* config/c4x/c4x.c (c4x_expand_prologue): Likewise.
* config/dsp16xx/dsp16xx.c (function_prologue): Likewise.
* config/h8300/h8300.c (h8300_init_once): Likewise.
* config/mips/mips.c (override_options): Likewise.
* config/i386/i386.c (override_options): Likewise, rework.
* config/m68k/m68k.c (override_options): Likewise.
* cp/decl.c (init_decl_processing): Likewise.
* java/jcf-parse.c (load_class): Likewise.
* config/dsp16xx/dsp16xx.c (print_operand): Call output_operand_lossage
instead of fatal.
* config/mips/mips.c (print_operand): Likewise.
* java/lex.c (byteswap_init, need_byteswap): Only #ifdef HAVE_ICONV.
* objc/objc_act.c (objc_check_decl): Remove unneeded fatal call.
(get_object_reference): Likewise.
From-SVN: r39443
2001-02-04 23:44:12 +01:00
|
|
|
|
fatal_error ("Circular inheritance in interface declaration for `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (super_name));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
interface = super_interface;
|
|
|
|
|
my_name = CLASS_NAME (interface);
|
|
|
|
|
super_name = CLASS_SUPER_NAME (interface);
|
|
|
|
|
|
|
|
|
|
op1 = CLASS_IVARS (interface);
|
|
|
|
|
if (op1)
|
|
|
|
|
{
|
|
|
|
|
tree head, tail = objc_copy_list (op1, &head);
|
|
|
|
|
|
|
|
|
|
/* Prepend super class ivars...make a copy of the list, we
|
|
|
|
|
do not want to alter the original. */
|
|
|
|
|
TREE_CHAIN (tail) = ivar_chain;
|
|
|
|
|
ivar_chain = head;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return ivar_chain;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* struct <classname> {
|
|
|
|
|
struct objc_class *isa;
|
|
|
|
|
...
|
|
|
|
|
}; */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
build_private_template (class)
|
|
|
|
|
tree class;
|
|
|
|
|
{
|
|
|
|
|
tree ivar_context;
|
|
|
|
|
|
|
|
|
|
if (CLASS_STATIC_TEMPLATE (class))
|
|
|
|
|
{
|
|
|
|
|
uprivate_record = CLASS_STATIC_TEMPLATE (class);
|
|
|
|
|
ivar_context = TYPE_FIELDS (CLASS_STATIC_TEMPLATE (class));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
uprivate_record = start_struct (RECORD_TYPE, CLASS_NAME (class));
|
|
|
|
|
|
|
|
|
|
ivar_context = build_ivar_chain (class, 0);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (uprivate_record, ivar_context, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
CLASS_STATIC_TEMPLATE (class) = uprivate_record;
|
|
|
|
|
|
|
|
|
|
/* mark this record as class template - for class type checking */
|
|
|
|
|
TREE_STATIC_TEMPLATE (uprivate_record) = 1;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
instance_type
|
|
|
|
|
= groktypename (build_tree_list (build_tree_list (NULL_TREE,
|
|
|
|
|
uprivate_record),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE,
|
|
|
|
|
NULL_TREE)));
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return ivar_context;
|
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Begin code generation for protocols... */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* struct objc_protocol {
|
|
|
|
|
char *protocol_name;
|
|
|
|
|
struct objc_protocol **protocol_list;
|
|
|
|
|
struct objc_method_desc *instance_methods;
|
|
|
|
|
struct objc_method_desc *class_methods;
|
|
|
|
|
}; */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
build_protocol_template ()
|
|
|
|
|
{
|
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
tree template;
|
|
|
|
|
|
|
|
|
|
template = start_struct (RECORD_TYPE, get_identifier (UTAG_PROTOCOL));
|
|
|
|
|
|
|
|
|
|
/* struct objc_class *isa; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, xref_tag (RECORD_TYPE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
get_identifier (UTAG_CLASS)));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("isa"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* char *protocol_name; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_CHAR]);
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("protocol_name"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_protocol **protocol_list; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, template);
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("protocol_list"));
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, field_decl);
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_method_list *instance_methods; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs
|
|
|
|
|
= build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_METHOD_PROTOTYPE_LIST)));
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("instance_methods"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_method_list *class_methods; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs
|
|
|
|
|
= build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_METHOD_PROTOTYPE_LIST)));
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("class_methods"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return finish_struct (template, field_decl_chain, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
1993-08-24 11:56:48 +02:00
|
|
|
|
build_descriptor_table_initializer (type, entries)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
tree type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree entries;
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree initlist = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
do
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree eltlist = NULL_TREE;
|
1993-08-24 11:56:48 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
eltlist
|
|
|
|
|
= tree_cons (NULL_TREE,
|
|
|
|
|
build_selector (METHOD_SEL_NAME (entries)), NULL_TREE);
|
|
|
|
|
eltlist
|
|
|
|
|
= tree_cons (NULL_TREE,
|
|
|
|
|
add_objc_string (METHOD_ENCODING (entries),
|
|
|
|
|
meth_var_types),
|
|
|
|
|
eltlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist
|
|
|
|
|
= tree_cons (NULL_TREE,
|
|
|
|
|
build_constructor (type, nreverse (eltlist)), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
entries = TREE_CHAIN (entries);
|
|
|
|
|
}
|
|
|
|
|
while (entries);
|
|
|
|
|
|
1993-08-24 11:56:48 +02:00
|
|
|
|
return build_constructor (build_array_type (type, 0), nreverse (initlist));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* struct objc_method_prototype_list {
|
|
|
|
|
int count;
|
|
|
|
|
struct objc_method_prototype {
|
|
|
|
|
SEL name;
|
|
|
|
|
char *types;
|
|
|
|
|
} list[1];
|
|
|
|
|
}; */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
build_method_prototype_list_template (list_type, size)
|
|
|
|
|
tree list_type;
|
|
|
|
|
int size;
|
|
|
|
|
{
|
|
|
|
|
tree objc_ivar_list_record;
|
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Generate an unnamed struct definition. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
objc_ivar_list_record = start_struct (RECORD_TYPE, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* int method_count; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_INT]);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = get_identifier ("method_count");
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* struct objc_method method_list[]; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, list_type);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = build_nt (ARRAY_REF, get_identifier ("method_list"),
|
|
|
|
|
build_int_2 (size, 0));
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_ivar_list_record, field_decl_chain, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return objc_ivar_list_record;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
build_method_prototype_template ()
|
|
|
|
|
{
|
|
|
|
|
tree proto_record;
|
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
proto_record
|
|
|
|
|
= start_struct (RECORD_TYPE, get_identifier (UTAG_METHOD_PROTOTYPE));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* struct objc_selector *_cmd; */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = tree_cons (NULL_TREE, xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (TAG_SELECTOR)), NULL_TREE);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("_cmd"));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], NULL_TREE);
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("method_types"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (proto_record, field_decl_chain, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return proto_record;
|
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* True if last call to forwarding_offset yielded a register offset. */
|
1993-08-24 11:56:48 +02:00
|
|
|
|
static int offset_is_register;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static int
|
|
|
|
|
forwarding_offset (parm)
|
|
|
|
|
tree parm;
|
|
|
|
|
{
|
|
|
|
|
int offset_in_bytes;
|
|
|
|
|
|
|
|
|
|
if (GET_CODE (DECL_INCOMING_RTL (parm)) == MEM)
|
|
|
|
|
{
|
|
|
|
|
rtx addr = XEXP (DECL_INCOMING_RTL (parm), 0);
|
|
|
|
|
|
|
|
|
|
/* ??? Here we assume that the parm address is indexed
|
|
|
|
|
off the frame pointer or arg pointer.
|
|
|
|
|
If that is not true, we produce meaningless results,
|
|
|
|
|
but do not crash. */
|
|
|
|
|
if (GET_CODE (addr) == PLUS
|
|
|
|
|
&& GET_CODE (XEXP (addr, 1)) == CONST_INT)
|
|
|
|
|
offset_in_bytes = INTVAL (XEXP (addr, 1));
|
|
|
|
|
else
|
|
|
|
|
offset_in_bytes = 0;
|
|
|
|
|
|
|
|
|
|
offset_in_bytes += OBJC_FORWARDING_STACK_OFFSET;
|
1993-08-24 11:56:48 +02:00
|
|
|
|
offset_is_register = 0;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
else if (GET_CODE (DECL_INCOMING_RTL (parm)) == REG)
|
|
|
|
|
{
|
|
|
|
|
int regno = REGNO (DECL_INCOMING_RTL (parm));
|
1993-08-24 11:56:48 +02:00
|
|
|
|
offset_in_bytes = apply_args_register_offset (regno);
|
|
|
|
|
offset_is_register = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
/* This is the case where the parm is passed as an int or double
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
and it is converted to a char, short or float and stored back
|
|
|
|
|
in the parmlist. In this case, describe the parm
|
|
|
|
|
with the variable's declared type, and adjust the address
|
|
|
|
|
if the least significant bytes (which we are using) are not
|
|
|
|
|
the first ones. */
|
1994-11-16 22:10:09 +01:00
|
|
|
|
if (BYTES_BIG_ENDIAN && TREE_TYPE (parm) != DECL_ARG_TYPE (parm))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
offset_in_bytes += (GET_MODE_SIZE (TYPE_MODE (DECL_ARG_TYPE (parm)))
|
|
|
|
|
- GET_MODE_SIZE (GET_MODE (DECL_RTL (parm))));
|
|
|
|
|
|
|
|
|
|
return offset_in_bytes;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
encode_method_prototype (method_decl, func_decl)
|
|
|
|
|
tree method_decl;
|
|
|
|
|
tree func_decl;
|
|
|
|
|
{
|
|
|
|
|
tree parms;
|
|
|
|
|
int stack_size, i;
|
|
|
|
|
tree user_args;
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
HOST_WIDE_INT max_parm_end = 0;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
char buf[40];
|
|
|
|
|
tree result;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* ONEWAY and BYCOPY, for remote object are the only method qualifiers. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_type_qualifiers (TREE_PURPOSE (TREE_TYPE (method_decl)));
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* C type. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_type (TREE_TYPE (TREE_TYPE (func_decl)),
|
|
|
|
|
obstack_object_size (&util_obstack),
|
|
|
|
|
OBJC_ENCODE_INLINE_DEFS);
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Stack size. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (parms = DECL_ARGUMENTS (func_decl); parms;
|
|
|
|
|
parms = TREE_CHAIN (parms))
|
|
|
|
|
{
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
HOST_WIDE_INT parm_end = (forwarding_offset (parms)
|
2000-03-17 22:44:43 +01:00
|
|
|
|
+ int_size_in_bytes (TREE_TYPE (parms)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1993-08-24 11:56:48 +02:00
|
|
|
|
if (!offset_is_register && max_parm_end < parm_end)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
max_parm_end = parm_end;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
stack_size = max_parm_end - OBJC_FORWARDING_MIN_OFFSET;
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "%d", stack_size);
|
|
|
|
|
obstack_grow (&util_obstack, buf, strlen (buf));
|
|
|
|
|
|
|
|
|
|
user_args = METHOD_SEL_ARGS (method_decl);
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Argument types. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (parms = DECL_ARGUMENTS (func_decl), i = 0; parms;
|
|
|
|
|
parms = TREE_CHAIN (parms), i++)
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Process argument qualifiers for user supplied arguments. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (i > 1)
|
|
|
|
|
{
|
|
|
|
|
encode_type_qualifiers (TREE_PURPOSE (TREE_TYPE (user_args)));
|
|
|
|
|
user_args = TREE_CHAIN (user_args);
|
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Type. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_type (TREE_TYPE (parms),
|
|
|
|
|
obstack_object_size (&util_obstack),
|
|
|
|
|
OBJC_ENCODE_INLINE_DEFS);
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Compute offset. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
sprintf (buf, "%d", forwarding_offset (parms));
|
1993-08-24 11:56:48 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Indicate register. */
|
1993-08-24 11:56:48 +02:00
|
|
|
|
if (offset_is_register)
|
|
|
|
|
obstack_1grow (&util_obstack, '+');
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
obstack_grow (&util_obstack, buf, strlen (buf));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
obstack_1grow (&util_obstack, '\0');
|
|
|
|
|
result = get_identifier (obstack_finish (&util_obstack));
|
|
|
|
|
obstack_free (&util_obstack, util_firstobj);
|
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
generate_descriptor_table (type, name, size, list, proto)
|
|
|
|
|
tree type;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *name;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int size;
|
|
|
|
|
tree list;
|
|
|
|
|
tree proto;
|
|
|
|
|
{
|
|
|
|
|
tree sc_spec, decl_specs, decl, initlist;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, type, sc_spec);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
decl = start_decl (synth_id_with_class_suffix (name, proto),
|
2001-05-01 22:45:55 +02:00
|
|
|
|
decl_specs, 1, NULL_TREE, NULL_TREE);
|
|
|
|
|
DECL_CONTEXT (decl) = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = build_tree_list (NULL_TREE, build_int_2 (size, 0));
|
|
|
|
|
initlist = tree_cons (NULL_TREE, list, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
finish_decl (decl, build_constructor (type, nreverse (initlist)),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return decl;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
generate_method_descriptors (protocol) /* generate_dispatch_tables */
|
|
|
|
|
tree protocol;
|
|
|
|
|
{
|
|
|
|
|
static tree objc_method_prototype_template;
|
|
|
|
|
tree initlist, chain, method_list_template;
|
|
|
|
|
tree cast, variable_length_type;
|
|
|
|
|
int size;
|
|
|
|
|
|
|
|
|
|
if (!objc_method_prototype_template)
|
2000-06-05 18:59:43 +02:00
|
|
|
|
{
|
|
|
|
|
objc_method_prototype_template = build_method_prototype_template ();
|
|
|
|
|
ggc_add_tree_root (&objc_method_prototype_template, 1);
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
cast = build_tree_list (build_tree_list (NULL_TREE, xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_METHOD_PROTOTYPE_LIST))),
|
|
|
|
|
NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
variable_length_type = groktypename (cast);
|
|
|
|
|
|
|
|
|
|
chain = PROTOCOL_CLS_METHODS (protocol);
|
|
|
|
|
if (chain)
|
|
|
|
|
{
|
1993-08-24 11:56:48 +02:00
|
|
|
|
size = list_length (chain);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
method_list_template
|
|
|
|
|
= build_method_prototype_list_template (objc_method_prototype_template,
|
|
|
|
|
size);
|
|
|
|
|
|
1993-08-24 11:56:48 +02:00
|
|
|
|
initlist
|
|
|
|
|
= build_descriptor_table_initializer (objc_method_prototype_template,
|
|
|
|
|
chain);
|
1993-08-01 07:53:52 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_CLASS_METHODS_decl
|
|
|
|
|
= generate_descriptor_table (method_list_template,
|
|
|
|
|
"_OBJC_PROTOCOL_CLASS_METHODS",
|
|
|
|
|
size, initlist, protocol);
|
|
|
|
|
TREE_TYPE (UOBJC_CLASS_METHODS_decl) = variable_length_type;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
UOBJC_CLASS_METHODS_decl = 0;
|
|
|
|
|
|
|
|
|
|
chain = PROTOCOL_NST_METHODS (protocol);
|
|
|
|
|
if (chain)
|
|
|
|
|
{
|
1993-08-24 11:56:48 +02:00
|
|
|
|
size = list_length (chain);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
method_list_template
|
|
|
|
|
= build_method_prototype_list_template (objc_method_prototype_template,
|
|
|
|
|
size);
|
1993-08-24 11:56:48 +02:00
|
|
|
|
initlist
|
|
|
|
|
= build_descriptor_table_initializer (objc_method_prototype_template,
|
|
|
|
|
chain);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
UOBJC_INSTANCE_METHODS_decl
|
|
|
|
|
= generate_descriptor_table (method_list_template,
|
|
|
|
|
"_OBJC_PROTOCOL_INSTANCE_METHODS",
|
|
|
|
|
size, initlist, protocol);
|
|
|
|
|
TREE_TYPE (UOBJC_INSTANCE_METHODS_decl) = variable_length_type;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
UOBJC_INSTANCE_METHODS_decl = 0;
|
|
|
|
|
}
|
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Generate a temporary FUNCTION_DECL node to be used in
|
|
|
|
|
hack_method_prototype below. */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static tree
|
|
|
|
|
build_tmp_function_decl ()
|
|
|
|
|
{
|
|
|
|
|
tree decl_specs, expr_decl, parms;
|
1994-06-30 18:17:36 +02:00
|
|
|
|
static int xxx = 0;
|
|
|
|
|
char buffer[80];
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* struct objc_object *objc_xxx (id, SEL, ...); */
|
|
|
|
|
pushlevel (0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, objc_object_reference);
|
1995-05-12 21:54:00 +02:00
|
|
|
|
push_parm_decl (build_tree_list
|
|
|
|
|
(build_tree_list (decl_specs,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE,
|
|
|
|
|
NULL_TREE)),
|
1995-05-12 21:54:00 +02:00
|
|
|
|
build_tree_list (NULL_TREE, NULL_TREE)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, xref_tag (RECORD_TYPE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
get_identifier (TAG_SELECTOR)));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
expr_decl = build1 (INDIRECT_REF, NULL_TREE, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1995-05-12 21:54:00 +02:00
|
|
|
|
push_parm_decl (build_tree_list (build_tree_list (decl_specs, expr_decl),
|
|
|
|
|
build_tree_list (NULL_TREE, NULL_TREE)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
parms = get_parm_info (0);
|
|
|
|
|
poplevel (0, 0, 0);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, objc_object_reference);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
sprintf (buffer, "__objc_tmp_%x", xxx++);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
expr_decl = build_nt (CALL_EXPR, get_identifier (buffer), parms, NULL_TREE);
|
|
|
|
|
expr_decl = build1 (INDIRECT_REF, NULL_TREE, expr_decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return define_decl (expr_decl, decl_specs);
|
|
|
|
|
}
|
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Generate the prototypes for protocol methods. This is used to
|
|
|
|
|
generate method encodings for these.
|
|
|
|
|
|
|
|
|
|
NST_METHODS is the method to generate a _DECL node for TMP_DECL is
|
|
|
|
|
a decl node to be used. This is also where the return value is
|
|
|
|
|
given. */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static void
|
|
|
|
|
hack_method_prototype (nst_methods, tmp_decl)
|
|
|
|
|
tree nst_methods;
|
|
|
|
|
tree tmp_decl;
|
|
|
|
|
{
|
|
|
|
|
tree parms;
|
1995-06-14 23:32:36 +02:00
|
|
|
|
tree parm;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Hack to avoid problem with static typing of self arg. */
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
TREE_SET_CODE (nst_methods, CLASS_METHOD_DECL);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
start_method_def (nst_methods);
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
TREE_SET_CODE (nst_methods, INSTANCE_METHOD_DECL);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
if (METHOD_ADD_ARGS (nst_methods) == objc_ellipsis_node)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
parms = get_parm_info (0); /* we have a `, ...' */
|
|
|
|
|
else
|
|
|
|
|
parms = get_parm_info (1); /* place a `void_at_end' */
|
|
|
|
|
|
|
|
|
|
poplevel (0, 0, 0); /* Must be called BEFORE start_function. */
|
|
|
|
|
|
|
|
|
|
/* Usually called from store_parm_decls -> init_function_start. */
|
|
|
|
|
|
|
|
|
|
DECL_ARGUMENTS (tmp_decl) = TREE_PURPOSE (parms);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
current_function_decl = tmp_decl;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
/* Code taken from start_function. */
|
|
|
|
|
tree restype = TREE_TYPE (TREE_TYPE (tmp_decl));
|
|
|
|
|
/* Promote the value to int before returning it. */
|
|
|
|
|
if (TREE_CODE (restype) == INTEGER_TYPE
|
|
|
|
|
&& TYPE_PRECISION (restype) < TYPE_PRECISION (integer_type_node))
|
|
|
|
|
restype = integer_type_node;
|
|
|
|
|
DECL_RESULT (tmp_decl) = build_decl (RESULT_DECL, 0, restype);
|
|
|
|
|
}
|
|
|
|
|
|
1995-06-14 23:32:36 +02:00
|
|
|
|
for (parm = DECL_ARGUMENTS (tmp_decl); parm; parm = TREE_CHAIN (parm))
|
|
|
|
|
DECL_CONTEXT (parm) = tmp_decl;
|
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
init_function_start (tmp_decl, "objc-act", 0);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Typically called from expand_function_start for function definitions. */
|
1999-09-15 12:07:22 +02:00
|
|
|
|
assign_parms (tmp_decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* install return type */
|
|
|
|
|
TREE_TYPE (TREE_TYPE (tmp_decl)) = groktypename (TREE_TYPE (nst_methods));
|
1994-06-30 18:17:36 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
generate_protocol_references (plist)
|
|
|
|
|
tree plist;
|
|
|
|
|
{
|
|
|
|
|
tree lproto;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Forward declare protocols referenced. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (lproto = plist; lproto; lproto = TREE_CHAIN (lproto))
|
|
|
|
|
{
|
|
|
|
|
tree proto = TREE_VALUE (lproto);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (proto) == PROTOCOL_INTERFACE_TYPE
|
|
|
|
|
&& PROTOCOL_NAME (proto))
|
|
|
|
|
{
|
|
|
|
|
if (! PROTOCOL_FORWARD_DECL (proto))
|
|
|
|
|
build_protocol_reference (proto);
|
|
|
|
|
|
|
|
|
|
if (PROTOCOL_LIST (proto))
|
|
|
|
|
generate_protocol_references (PROTOCOL_LIST (proto));
|
|
|
|
|
}
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static void
|
|
|
|
|
generate_protocols ()
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree p, tmp_decl, encoding;
|
|
|
|
|
tree sc_spec, decl_specs, decl;
|
|
|
|
|
tree initlist, protocol_name_expr, refs_decl, refs_expr;
|
2000-06-05 18:59:43 +02:00
|
|
|
|
tree cast_type2;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tmp_decl = build_tmp_function_decl ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! objc_protocol_template)
|
|
|
|
|
objc_protocol_template = build_protocol_template ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* If a protocol was directly referenced, pull in indirect references. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (p = protocol_chain; p; p = TREE_CHAIN (p))
|
|
|
|
|
if (PROTOCOL_FORWARD_DECL (p) && PROTOCOL_LIST (p))
|
|
|
|
|
generate_protocol_references (PROTOCOL_LIST (p));
|
|
|
|
|
|
|
|
|
|
for (p = protocol_chain; p; p = TREE_CHAIN (p))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree nst_methods = PROTOCOL_NST_METHODS (p);
|
|
|
|
|
tree cls_methods = PROTOCOL_CLS_METHODS (p);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* If protocol wasn't referenced, don't generate any code. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! PROTOCOL_FORWARD_DECL (p))
|
|
|
|
|
continue;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Make sure we link in the Protocol class. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
add_class_reference (get_identifier (PROTOCOL_OBJECT_CLASS_NAME));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
while (nst_methods)
|
|
|
|
|
{
|
1994-06-30 18:17:36 +02:00
|
|
|
|
if (! METHOD_ENCODING (nst_methods))
|
|
|
|
|
{
|
|
|
|
|
hack_method_prototype (nst_methods, tmp_decl);
|
|
|
|
|
encoding = encode_method_prototype (nst_methods, tmp_decl);
|
|
|
|
|
METHOD_ENCODING (nst_methods) = encoding;
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
nst_methods = TREE_CHAIN (nst_methods);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
while (cls_methods)
|
|
|
|
|
{
|
1994-06-30 18:17:36 +02:00
|
|
|
|
if (! METHOD_ENCODING (cls_methods))
|
|
|
|
|
{
|
|
|
|
|
hack_method_prototype (cls_methods, tmp_decl);
|
|
|
|
|
encoding = encode_method_prototype (cls_methods, tmp_decl);
|
|
|
|
|
METHOD_ENCODING (cls_methods) = encoding;
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
cls_methods = TREE_CHAIN (cls_methods);
|
|
|
|
|
}
|
|
|
|
|
generate_method_descriptors (p);
|
|
|
|
|
|
|
|
|
|
if (PROTOCOL_LIST (p))
|
|
|
|
|
refs_decl = generate_protocol_list (p);
|
|
|
|
|
else
|
|
|
|
|
refs_decl = 0;
|
|
|
|
|
|
|
|
|
|
/* static struct objc_protocol _OBJC_PROTOCOL_<mumble>; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC],
|
|
|
|
|
NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, objc_protocol_template, sc_spec);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
decl = start_decl (synth_id_with_class_suffix ("_OBJC_PROTOCOL", p),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, 1, NULL_TREE, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2001-05-01 22:45:55 +02:00
|
|
|
|
DECL_CONTEXT (decl) = NULL_TREE;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
protocol_name_expr = add_objc_string (PROTOCOL_NAME (p), class_names);
|
|
|
|
|
|
|
|
|
|
if (refs_decl)
|
|
|
|
|
{
|
2000-06-05 18:59:43 +02:00
|
|
|
|
cast_type2
|
|
|
|
|
= groktypename
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
(build_tree_list (build_tree_list (NULL_TREE,
|
|
|
|
|
objc_protocol_template),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE,
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE,
|
|
|
|
|
NULL_TREE))));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
refs_expr = build_unary_op (ADDR_EXPR, refs_decl, 0);
|
|
|
|
|
TREE_TYPE (refs_expr) = cast_type2;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
refs_expr = build_int_2 (0, 0);
|
|
|
|
|
|
|
|
|
|
/* UOBJC_INSTANCE_METHODS_decl/UOBJC_CLASS_METHODS_decl are set
|
|
|
|
|
by generate_method_descriptors, which is called above. */
|
1993-08-01 07:53:52 +02:00
|
|
|
|
initlist = build_protocol_initializer (TREE_TYPE (decl),
|
|
|
|
|
protocol_name_expr, refs_expr,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_INSTANCE_METHODS_decl,
|
|
|
|
|
UOBJC_CLASS_METHODS_decl);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (decl, initlist, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Mark the decl as used to avoid "defined but not used" warning. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_USED (decl) = 1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
1993-08-01 07:53:52 +02:00
|
|
|
|
build_protocol_initializer (type, protocol_name, protocol_list,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
instance_methods, class_methods)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
tree type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree protocol_name;
|
|
|
|
|
tree protocol_list;
|
|
|
|
|
tree instance_methods;
|
|
|
|
|
tree class_methods;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree initlist = NULL_TREE, expr;
|
2000-06-05 18:59:43 +02:00
|
|
|
|
tree cast_type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-06-05 18:59:43 +02:00
|
|
|
|
cast_type = groktypename
|
|
|
|
|
(build_tree_list
|
|
|
|
|
(build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_CLASS))),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, NULL_TREE)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Filling the "isa" in with one allows the runtime system to
|
|
|
|
|
detect that the version change...should remove before final release. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
expr = build_int_2 (PROTOCOL_VERSION, 0);
|
|
|
|
|
TREE_TYPE (expr) = cast_type;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
|
|
|
|
initlist = tree_cons (NULL_TREE, protocol_name, initlist);
|
|
|
|
|
initlist = tree_cons (NULL_TREE, protocol_list, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (!instance_methods)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
expr = build_unary_op (ADDR_EXPR, instance_methods, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (!class_methods)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
expr = build_unary_op (ADDR_EXPR, class_methods, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return build_constructor (type, nreverse (initlist));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* struct objc_category {
|
|
|
|
|
char *category_name;
|
|
|
|
|
char *class_name;
|
|
|
|
|
struct objc_method_list *instance_methods;
|
|
|
|
|
struct objc_method_list *class_methods;
|
|
|
|
|
struct objc_protocol_list *protocols;
|
|
|
|
|
}; */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
build_category_template ()
|
|
|
|
|
{
|
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
|
|
|
|
objc_category_template = start_struct (RECORD_TYPE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
get_identifier (UTAG_CATEGORY));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
/* char *category_name; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_CHAR]);
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("category_name"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* char *class_name; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_CHAR]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("class_name"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_method_list *instance_methods; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_METHOD_LIST)));
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("instance_methods"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_method_list *class_methods; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_METHOD_LIST)));
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("class_methods"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* struct objc_protocol **protocol_list; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_PROTOCOL)));
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("protocol_list"));
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, field_decl);
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_category_template, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
/* struct objc_selector {
|
|
|
|
|
void *sel_id;
|
|
|
|
|
char *sel_type;
|
|
|
|
|
}; */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
build_selector_template ()
|
|
|
|
|
{
|
|
|
|
|
|
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
|
|
|
|
objc_selector_template
|
|
|
|
|
= start_struct (RECORD_TYPE, get_identifier (UTAG_SELECTOR));
|
|
|
|
|
|
|
|
|
|
/* void *sel_id; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_VOID]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("sel_id"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* char *sel_type; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_CHAR]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("sel_type"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_selector_template, field_decl_chain, NULL_TREE);
|
1994-06-30 18:17:36 +02:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* struct objc_class {
|
|
|
|
|
struct objc_class *isa;
|
|
|
|
|
struct objc_class *super_class;
|
|
|
|
|
char *name;
|
|
|
|
|
long version;
|
|
|
|
|
long info;
|
|
|
|
|
long instance_size;
|
|
|
|
|
struct objc_ivar_list *ivars;
|
|
|
|
|
struct objc_method_list *methods;
|
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
struct objc_cache *cache;
|
|
|
|
|
else {
|
|
|
|
|
struct sarray *dtable;
|
|
|
|
|
struct objc_class *subclass_list;
|
|
|
|
|
struct objc_class *sibling_class;
|
|
|
|
|
}
|
|
|
|
|
struct objc_protocol_list *protocols;
|
1998-09-03 01:48:01 +02:00
|
|
|
|
void *gc_object_type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}; */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
build_class_template ()
|
|
|
|
|
{
|
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
objc_class_template
|
|
|
|
|
= start_struct (RECORD_TYPE, get_identifier (UTAG_CLASS));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* struct objc_class *isa; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, objc_class_template);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("isa"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* struct objc_class *super_class; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, objc_class_template);
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("super_class"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* char *name; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_CHAR]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("name"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* long version; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_LONG]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("version");
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* long info; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_LONG]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("info");
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* long instance_size; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_LONG]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("instance_size");
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_ivar_list *ivars; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_IVAR_LIST)));
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("ivars"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_method_list *methods; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_METHOD_LIST)));
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("methods"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
/* struct objc_cache *cache; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier ("objc_cache")));
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("cache"));
|
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* struct sarray *dtable; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier ("sarray")));
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("dtable"));
|
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_class *subclass_list; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, objc_class_template);
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("subclass_list"));
|
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_class *sibling_class; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, objc_class_template);
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("sibling_class"));
|
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* struct objc_protocol **protocol_list; */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
get_identifier (UTAG_PROTOCOL)));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("protocol_list"));
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, field_decl);
|
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
1998-09-03 01:48:01 +02:00
|
|
|
|
/* void *sel_id; */
|
|
|
|
|
|
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_VOID]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("sel_id"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* void *gc_object_type; */
|
|
|
|
|
|
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_VOID]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("gc_object_type"));
|
|
|
|
|
field_decl
|
|
|
|
|
= grokfield (input_filename, lineno, field_decl, decl_specs, NULL_TREE);
|
|
|
|
|
chainon (field_decl_chain, field_decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_class_template, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Generate appropriate forward declarations for an implementation. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
synth_forward_declarations ()
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree sc_spec, decl_specs, an_id;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* extern struct objc_class _OBJC_CLASS_<my_name>; */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
an_id = synth_id_with_class_suffix ("_OBJC_CLASS", implementation_context);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = build_tree_list (NULL_TREE, ridpointers[(int) RID_EXTERN]);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, objc_class_template, sc_spec);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_CLASS_decl = define_decl (an_id, decl_specs);
|
|
|
|
|
TREE_USED (UOBJC_CLASS_decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_ARTIFICIAL (UOBJC_CLASS_decl) = 1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* extern struct objc_class _OBJC_METACLASS_<my_name>; */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
an_id = synth_id_with_class_suffix ("_OBJC_METACLASS",
|
|
|
|
|
implementation_context);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_METACLASS_decl = define_decl (an_id, decl_specs);
|
|
|
|
|
TREE_USED (UOBJC_METACLASS_decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_ARTIFICIAL(UOBJC_METACLASS_decl) = 1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Pre-build the following entities - for speed/convenience. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
an_id = get_identifier ("super_class");
|
|
|
|
|
ucls_super_ref = build_component_ref (UOBJC_CLASS_decl, an_id);
|
|
|
|
|
uucls_super_ref = build_component_ref (UOBJC_METACLASS_decl, an_id);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
error_with_ivar (message, decl, rawdecl)
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *message;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree decl;
|
|
|
|
|
tree rawdecl;
|
|
|
|
|
{
|
|
|
|
|
count_error (0);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
report_error_function (DECL_SOURCE_FILE (decl));
|
|
|
|
|
|
2001-03-20 23:01:49 +01:00
|
|
|
|
error_with_file_and_line (DECL_SOURCE_FILE (decl),
|
|
|
|
|
DECL_SOURCE_LINE (decl),
|
2001-03-28 04:49:19 +02:00
|
|
|
|
"%s `%s'",
|
|
|
|
|
message, gen_declaration (rawdecl, errbuf));
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
#define USERTYPE(t) \
|
|
|
|
|
(TREE_CODE (t) == RECORD_TYPE || TREE_CODE (t) == UNION_TYPE \
|
|
|
|
|
|| TREE_CODE (t) == ENUMERAL_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
check_ivars (inter, imp)
|
|
|
|
|
tree inter;
|
|
|
|
|
tree imp;
|
|
|
|
|
{
|
|
|
|
|
tree intdecls = CLASS_IVARS (inter);
|
|
|
|
|
tree impdecls = CLASS_IVARS (imp);
|
|
|
|
|
tree rawintdecls = CLASS_RAW_IVARS (inter);
|
|
|
|
|
tree rawimpdecls = CLASS_RAW_IVARS (imp);
|
|
|
|
|
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
tree t1, t2;
|
|
|
|
|
|
|
|
|
|
if (intdecls == 0 && impdecls == 0)
|
|
|
|
|
break;
|
|
|
|
|
if (intdecls == 0 || impdecls == 0)
|
|
|
|
|
{
|
|
|
|
|
error ("inconsistent instance variable specification");
|
|
|
|
|
break;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
t1 = TREE_TYPE (intdecls); t2 = TREE_TYPE (impdecls);
|
|
|
|
|
|
|
|
|
|
if (!comptypes (t1, t2))
|
|
|
|
|
{
|
|
|
|
|
if (DECL_NAME (intdecls) == DECL_NAME (impdecls))
|
|
|
|
|
{
|
|
|
|
|
error_with_ivar ("conflicting instance variable type",
|
|
|
|
|
impdecls, rawimpdecls);
|
|
|
|
|
error_with_ivar ("previous declaration of",
|
|
|
|
|
intdecls, rawintdecls);
|
|
|
|
|
}
|
|
|
|
|
else /* both the type and the name don't match */
|
|
|
|
|
{
|
|
|
|
|
error ("inconsistent instance variable specification");
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (DECL_NAME (intdecls) != DECL_NAME (impdecls))
|
|
|
|
|
{
|
|
|
|
|
error_with_ivar ("conflicting instance variable name",
|
|
|
|
|
impdecls, rawimpdecls);
|
|
|
|
|
error_with_ivar ("previous declaration of",
|
|
|
|
|
intdecls, rawintdecls);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
intdecls = TREE_CHAIN (intdecls);
|
|
|
|
|
impdecls = TREE_CHAIN (impdecls);
|
|
|
|
|
rawintdecls = TREE_CHAIN (rawintdecls);
|
|
|
|
|
rawimpdecls = TREE_CHAIN (rawimpdecls);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1992-11-09 18:42:55 +01:00
|
|
|
|
/* Set super_type to the data type node for struct objc_super *,
|
|
|
|
|
first defining struct objc_super itself.
|
|
|
|
|
This needs to be done just once per compilation. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
build_super_template ()
|
|
|
|
|
{
|
|
|
|
|
tree record, decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
record = start_struct (RECORD_TYPE, get_identifier (UTAG_SUPER));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* struct objc_object *self; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, objc_object_reference);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("self");
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, field_decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* struct objc_class *class; */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
decl_specs = get_identifier (UTAG_CLASS);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, xref_tag (RECORD_TYPE, decl_specs));
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("class"));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (record, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* `struct objc_super *' */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
super_type = groktypename (build_tree_list (build_tree_list (NULL_TREE,
|
|
|
|
|
record),
|
1993-04-10 01:12:37 +02:00
|
|
|
|
build1 (INDIRECT_REF,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE, NULL_TREE)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return record;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* struct objc_ivar {
|
|
|
|
|
char *ivar_name;
|
|
|
|
|
char *ivar_type;
|
|
|
|
|
int ivar_offset;
|
|
|
|
|
}; */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
build_ivar_template ()
|
|
|
|
|
{
|
|
|
|
|
tree objc_ivar_id, objc_ivar_record;
|
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
objc_ivar_id = get_identifier (UTAG_IVAR);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
objc_ivar_record = start_struct (RECORD_TYPE, objc_ivar_id);
|
|
|
|
|
|
|
|
|
|
/* char *ivar_name; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_CHAR]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("ivar_name"));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* char *ivar_type; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_CHAR]);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("ivar_type"));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* int ivar_offset; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_INT]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("ivar_offset");
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_ivar_record, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return objc_ivar_record;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* struct {
|
|
|
|
|
int ivar_count;
|
|
|
|
|
struct objc_ivar ivar_list[ivar_count];
|
|
|
|
|
}; */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
build_ivar_list_template (list_type, size)
|
|
|
|
|
tree list_type;
|
|
|
|
|
int size;
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree objc_ivar_list_record;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
objc_ivar_list_record = start_struct (RECORD_TYPE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* int ivar_count; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_INT]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("ivar_count");
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* struct objc_ivar ivar_list[]; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, list_type);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = build_nt (ARRAY_REF, get_identifier ("ivar_list"),
|
|
|
|
|
build_int_2 (size, 0));
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_ivar_list_record, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return objc_ivar_list_record;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* struct {
|
|
|
|
|
int method_next;
|
|
|
|
|
int method_count;
|
|
|
|
|
struct objc_method method_list[method_count];
|
|
|
|
|
}; */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
build_method_list_template (list_type, size)
|
|
|
|
|
tree list_type;
|
|
|
|
|
int size;
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree objc_ivar_list_record;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
objc_ivar_list_record = start_struct (RECORD_TYPE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* int method_next; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs
|
|
|
|
|
= build_tree_list
|
|
|
|
|
(NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_METHOD_PROTOTYPE_LIST)));
|
|
|
|
|
field_decl
|
|
|
|
|
= build1 (INDIRECT_REF, NULL_TREE, get_identifier ("method_next"));
|
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
|
|
|
|
/* int method_count; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_INT]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = get_identifier ("method_count");
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* struct objc_method method_list[]; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, list_type);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = build_nt (ARRAY_REF, get_identifier ("method_list"),
|
|
|
|
|
build_int_2 (size, 0));
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl, decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (objc_ivar_list_record, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return objc_ivar_list_record;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
1993-08-24 11:56:48 +02:00
|
|
|
|
build_ivar_list_initializer (type, field_decl)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
tree type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree field_decl;
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree initlist = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
do
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree ivar = NULL_TREE;
|
1993-08-24 11:56:48 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Set name. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (DECL_NAME (field_decl))
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
ivar = tree_cons (NULL_TREE,
|
1993-08-24 11:56:48 +02:00
|
|
|
|
add_objc_string (DECL_NAME (field_decl),
|
|
|
|
|
meth_var_names),
|
|
|
|
|
ivar);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Unnamed bit-field ivar (yuck). */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
ivar = tree_cons (NULL_TREE, build_int_2 (0, 0), ivar);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Set type. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_field_decl (field_decl,
|
|
|
|
|
obstack_object_size (&util_obstack),
|
|
|
|
|
OBJC_ENCODE_DONT_INLINE_DEFS);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
/* Null terminate string. */
|
|
|
|
|
obstack_1grow (&util_obstack, 0);
|
1993-08-24 11:56:48 +02:00
|
|
|
|
ivar
|
1993-04-10 01:12:37 +02:00
|
|
|
|
= tree_cons
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
(NULL_TREE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
add_objc_string (get_identifier (obstack_finish (&util_obstack)),
|
|
|
|
|
meth_var_types),
|
1993-08-24 11:56:48 +02:00
|
|
|
|
ivar);
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_free (&util_obstack, util_firstobj);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
* Rework fields used to describe positions of bitfields and
modify sizes to be unsigned and use HOST_WIDE_INT.
* alias.c (reg_known_value_size): Now unsigned.
* c-typeck.c (build_unary_op, case ADDR_EXPR): Use byte_position.
(really_start_incremental_init): Use bitsize_zero_node.
(push_init_level, pop_init_level, output_init_element): Likewise.
Use bitsize_unit_node and bitsize_one_node.
(output_pending_init_elements, process_init_element): Likewise.
* combine.c (combine_max_regno, reg_sign_bit_copies): Now unsigned.
(make_extraction): Position and length HOST_WIDE_INT and unsigned
HOST_WIDE_INT, respectively.
(get_pos_from_mask): Passed in value is unsigned HOST_WIDE_INT.
(num_sign_bit_copies): Returns unsigned.
BITWIDTH now unsigned; rework arithmetic.
Remove recursive call from arg to MAX.
(combine_instructions, init_reg_last_arrays): NREGS now unsigned.
(setup_incoming_promotions, can_combine_p, try_combine, simplify_set):
REGNO now unsigned.
(set_nonzero_bit_and_sign_copies): NUM now unsigned.
(find_split_point, expand_compound_operation, make_extraction): LEN
now unsigned HOST_WIDE_INT, POS now HOST_WIDE_INT.
(make_field_assignment): Likewise.
(combine_simplify_rtx): Add cast.
(expand_compound_operation): MODEWIDTH now unsigned; rework arithmetic.
(force_to_mode): WIDTH now unsigned; add cast.
(if_then_else_cond): SIZE now unsigned.
(nonzero_bits): MODE_WIDTH, RESULT_WIDTH, and WIDTH now unsigned.
(extended_count): Now returns unsigned.
(simplify_shift_const): COUNT unsigned; arg is now INPUT_COUNT.
Add SIGNED_COUNT variable; MODE_WORDS and FIRST_COUNT now unsigned.
(simplify_comparison): MODE_WIDTH now unsigned.
(update_table_tick): REGNO and ENDREGNO now unsigned; new var R.
(mark_used_regs_combine): Likewise; rework arithmetic.
(record_value_for_reg): REGNO, ENDREGNO, and I now unsigned.
(record_dead_and_set_regs, reg_dead_at_p, distribute_notes): Likewise.
(record_promoted_value): REGNO now unsigned.
(get_last_value_validate): REGNO, ENDREGNO, and J now unsigned.
(get_last_value): REGNO now unsigned.
(use_crosses_set_p): REGNO and ENDREGNO now unsigned.
(reg_dead_regno, reg_dead_endregno): Now unsigned.
(remove_death): Arg REGNO now unsigned.
(move_deaths): REGNO, DEADREGNO, DEADEND, OUREND, and I now unsigned.
(reg_bitfield_target_p): REGNO, REGNO, ENDREGNO, and ENDTREGNO
now unsigned.
* convert.c (convert_to_integer): INPREC and OUTPREC now unsigned.
* cse.c (struct qty_table_elem): FIRST_REG and LAST_REG now unsigned.
(struct cse_reg_info): REGNO now unsigned.
(cached_regno): Now unsigned.
(REGNO_QTY_VALID_P): Add cast.
(make_new_qty, make_regs_eqv, delete_reg_eqiv): Regno args unsigned.
(remove_invalid_regs): Likewise.
(remove_invalid_subreg_refs): Likewise; arg WORD also unsigned
as are variables END and I.
(get_cse_reg_info, insert): Likewise.
(mention_regs, invalidate_for_call): REGNO, ENDREGNO, and I unsigned.
(canon_hash): Likewise.
(insert_regs, lookup_for_remove): REGNO now unsigned.
(invalidate): REGNO, ENDREGNO, TREGNO, and TENDREGNO now unsigned.
New variable RN.
* dbxout.c (dbxout_parms, dbxout_reg_parms): Don't check for REGNO < 0.
* dwarf2out.c (dwarf2ou_frame_debug_expr): Remove cast.
* emit-rtl.c (subreg_realpart_p): Add cast.
(operand_subword): Arg I is now unsigned as is var PARTWORDS.
(operand_subword_force): Arg I is now unsigned.
* except.c (eh_regs): Variable I is now unsigned.
* explow.c (hard_function_value): BYTES is unsigned HOST_WIDE_INT.
* expmed.c (store_fixed_bit_field): Position is HOST_WIDE_INT;
length is unsigned HOST_WIDE_INT; likewise for internal variables.
(store_split_bit_field, extract_fixed_bit_field): Likewise.
(extract_split_bit_field, store_bit_field, extract_bit_field):
Likewise.
* expr.c (store_constructor_fields, store_constructor, store_field):
Positions are HOST_WIDE_INT and lengths are unsigned HOST_WIDE_INT.
(expand_assignment, expand_expr, expand_expr_unaligned): Likewise.
(do_jump): Likewise.
(move_by_pieces, move_by_pieces_ninsns, clear_by_pieces):
MAX_SIZE is now unsigned.
(emit_group_load): BYTEPOS is HOST_WIDE_INT; BYTELEN is unsigned.
(emit_group_store): Likewise.
(emit_move_insn): I now unsigned.
(store_constructor): Use host_integerp, tree_low_cst, and
bitsize_unit_node.
(get_inner_reference): Return bitpos and bitsize as HOST_WIDE_INT.
Rework all calculations to use trees and new fields.
* expr.h (promoted_input_arg): Regno now unsigned.
(store_bit_field, extract_bit_field): Adjust types of pos and size.
(mark_seen_cases): Arg is HOST_WIDE_INT.
* flow.c (verify_wide_reg_1): REGNO now unsigned.
* fold-const.c (decode_field_reference): Size and pos HOST_WIDE_INT;
precisions and alignments are unsigned.
(optimize_bit_field_compare, fold_truthop): Likewise.
(int_const_binop): Adjust threshold for size_int_type_wide call.
(fold_convert): Likewise.
(size_int_type_wide): Make table larger and fix thinko that only
had half of table used.
(all_ones_mask_p, fold): Precisions are unsigned.
* function.c (put_reg_info_stack): REGNO is unsigned.
(instantiate_decl): Size is HOST_WIDE_INT.
(instantiate_virtual_regs): I is unsigned.
(assign_parms): REGNO, REGNOI, and REGNOR are unsigned.
(promoted_input_arg): REGNO is unsigned.
* function.h (struct function): x_max_parm_reg is now unsigned.
* gcse.c (max_gcse_regno): Now unsigned.
(struct null_pointer_info): min_reg and max_reg now unsigned.
(lookup_set, next_set): REGNO arg now unsigned.
(compute_hash_table): REGNO and I now unsigned.
(handle_avail_expr): regnum_for_replacing now unsigned.
(cprop_insn): REGNO now unsigned.
(delete_null_pointer_checks_1): BLOCK_REG now pointer to unsigned.
* ggc-common.c (ggc_mark_tree_children, case FIELD_DECL): New case.
* global.c (set_preference): SRC_REGNO, DEST_REGNO, and I now unsigned.
* hard-reg-set.h (reg_class_size): Now unsigned.
* integrate.c (mark_stores): LAST_REG and I now unsigned; new UREGNO.
* jump.c (mark_modified_reg): I now unsigned; add cast.
(rtx_equal_for_thread_p): Add cast.
* loop.c (max_reg_before_loop): Now unsigned.
(struct_movable): REGNO now unsigned.
(try_copy_prop): REGNO arg unsigned.
(regs_match_p): XN and YN now unsigned.
(consec_sets_invariant_p, maybe_eliminate_biv): REGNO now unsigned.
(strength_reduce): Likewise; NREGS also unsigned.
(first_increment_giv, last_increment_giv unsigned): Now unsigned.
* loop.h (struct iv_class): REGNO now unsigned.
(max_reg_before_loop, first_increment_giv, last_increment_giv):
Now unsigned.
* machmode.h (mode_size, mode_unit_size): Now unsigned.
(mode_for_size, smallest_mode_for_size): Pass size as unsigned.
* optabs.c (expand_binop): I and NWORDS now unsigned.
(expand_unop): I now unsigned.
* print-tree.c (print_node): Don't print DECL_FIELD_BITPOS, but do
print DECL_FIELD_OFFSET and DECL_FIELD_BIT_OFFSET.
* real.c (significand_size): Now returns unsigned.
* real.h (significand_size): Likewise.
* regclass.c (reg_class_size): Now unsigned.
(choose_hard_reg_mode): Both operands now unsigned.
(record_reg_classes): REGNO and NR now unsigned.
(reg_scan): NREGS now unsigned.
(reg_scan_update): old_max_regno now unsigned.
(reg_scan_mark_refs): Arg MIN_REGNO and var REGNO now unsigned.
* reload.c (find_valid_class): BEST_SIZE now unsigned.
(find_dummy_reload): REGNO, NWORDS, and I now unsigned.
(hard_reg_set_here_p): Args BEG_REGNO and END_REGNO now unsigned.
Likewise for variable R.
(refers_to_regno_for_reload_p): Args REGNO and END_REGNO now unsigned,
as are variables INNER_REGNO and INNER_ENDREGNO; add new variable R.
(find_equiv_reg): Add casts.
(regno_clobbered_p): Arg REGNO now unsigned.
* reload.h (struct reload): NREGS now unsigned.
(refers_to_regno_for_reload_p): Regno args are unsigned.
(regno_clobbered_p): Likewise.
* reload1.c (reg_max_ref_width, spill_stack_slot_width): Now unsigned.
(compute_use_by_pseudos): REGNO now unsigned.
(find_reg): I and J now unsigned, new variable K, and change loop
variables accordingly; THIS_NREGS now unsigned.
(alter_reg): INHERENT_SIZE and TOTAL_SIZE now unsigned.
(spill_hard_reg): REGNO arg now unsigned; add casts.
(forget_old_reloads_1): REGNO, NR, and I now unsigned.
(mark_reload_reg_in_use): Arg REGNO and vars NREGS and I now unsigned.
(clear_reload_reg_in_use): Arg REGNO and vars NREGS, START_REGNO,
END_REGNO, CONFLICT_START, and CONFLICT_END now unsigned.
(reload_reg_free_p, reload_reg_reaches_end_p): Arg REGNO now unsigned.
(choose_reload_regs): MAX_GROUP_SIZE now unsigned.
(emit_reload_insns): REGNO now unsigned.
(reload_cse_move2add): Add cast.
(move2add_note_store): REGNO and I now unsigned; new variable ENDREGNO
and rework loop.
* resource.c (mark_referenced_resources, mark_set_resources): New
variable R; REGNO and LAST_REGNO now unsigned.
(mark_target_live_regs): J and REGNO now unsigned.
* rtl.c (mode_size, mode_unit_size): Now unsigned.
* rtl.h (union rtunion_def): New field rtuint.
(XCUINT): New macro.
(ADDRESSOF_REGNO, REGNO, SUBREG_WORD): New XCUINT.
(operand_subword, operand_subword_force): Word number is unsigned.
(choose_hard_reg_mode): Operands are unsigned.
(refers_to-regno_p, dead_or_set_regno_p): Regno arg is unsigned.
(find_regno_note, find_regno_fusage, replace_regs): Likewise.
(regno_use_in, combine_instructions, remove_death): Likewise.
(reg_scan, reg_scan_update): Likewise.
(extended_count): Return is unsigned.
* rtlanal.c (refers_to_regno_p): Args REGNO and ENDREGNO and vars I,
INNER_REGNO, and INNER_ENDREGNO now unsigned; new variable X_REGNO.
(reg_overlap_mentioned_p): REGNO and ENDREGNO now unsigned.
(reg_set_last_first_regno, reg_set_last_last_regno): Now unsigned.
(reg_reg_last_1): FIRS and LAST now unsigned.
(dead_or_set_p): REGNO, LAST_REGNO, and I now unsigned.
(dead_or_set_regno_p): Arg TEST_REGNO and vars REGNO and ENDREGNO
now unsigned.
(find_regno_note, regno_use_in): Arg REGNO now unsigned.
(find_regno_fusage): Likewise; also var REGNOTE now unsigned.
(find_reg_fusage): Variables REGNO, END_REGNO, and I now unsigned.
(replace_regs): Arg NREGS now unsigned.
* sdbout.c (sdbout_parms, sdbout_reg_parms): Don't check REGNO < 0.
* simplify-rtx.c (simplify_unary_operation): WIDTH now unsigned.
(simplify_binary_operation): Likewise.
(cselib_invalidate_regno): Arg REGNO and variables ENDREGNO, I, and
THIS_LAST now unsigned.
(cselib_record_set): Add cast.
* ssa.c (ssa_max_reg_num): Now unsigned.
(rename_block): REGNO now unsigned.
* stmt.c (expand_return): Bit positions unsigned HOST_WIDE_INT;
sizes now unsigned.
(all_cases_count): Just return -1 not -2.
COUNT, MINVAL, and LASTVAL now HOST_WIDE_INT.
Rework tests to use trees whenever possible.
Use host_integerp and tree_low_cst.
(mark_seen_cases): COUNT arg now HOST_WIDE_INT;
Likewise variable NEXT_NODE_OFFSET; XLO now unsigned.
(check_for_full_enumeration_handing): BYTES_NEEDED, I to HOST_WIDE_INT.
* stor-layout.c (mode_for_size): SIZE arg now unsigned.
(smallest_mode_for_size): Likewise.
(layout_decl): Simplify handing of a specified DECL_SIZE_UNIT.
KNOWN_ALIGN is now an alignment, so simplify code.
Don't turn off DECL_BIT_FIELD if field is BLKmode, but not type.
(start_record_layout): Renamed from new_record_layout_info.
Update to new fields.
(debug_rli, normalize_rli, rli_size_unit_so_far, rli_size_so_far):
New functions.
(place_union_field): Renamed from layout_union_field.
Update to use new fields in rli.
(place_field): Renamed from layout_field.
Major rewrite to use new fields in rli; pass alignment to layout_decl.
(finalize_record_size): Rework to use new fields in rli and handle
union.
(compute_record_mode): Rework to simplify and to use new DECL fields.
(finalize_type_size): Make rounding more consistent.
(finish_union_layout): Deleted.
(layout_type, case VOID_TYPE): Don't set TYPE_SIZE_UNIT either.
(layout_type, case RECORD_TYPE): Call new function names.
(initialize_sizetypes): Set TYPE_IS_SIZETYPE.
(set_sizetype): Set TYPE_IS_SIZETYPE earlier.
(get_best_mode): UNIT is now unsigned; remove casts.
* tree.c (bit_position): Compute from new fields.
(byte_position, int_byte_position): New functions.
(print_type_hash_statistics): Cast to remove warning.
(build_range_type): Use host_integerp and tree_low_cst to try to hash.
(build_index_type): Likewise; make subtype of sizetype.
(build_index_2_type): Pass sizetype to build_range_type.
(build_common_tree_nodes): Use size_int and bitsize_int to
initialize nodes; add bitsize_{zero,one,unit}_node.
* tree.h (DECL_FIELD_CONTEXT): Use FIELD_DECL_CHECK.
(DECL_BIT_FIELD_TYPE, DECL_QUALIFIER, DECL_FCONTEXT): Likewise.
(DECL_PACKED, DECL_BIT_FIELD): Likewise.
(DECL_FIELD_BITPOS): Deleted.
(DECL_FIELD_OFFSET, DECL_FIELD_BIT_OFFSET): New fields.
(DECL_RESULT, DECL_SAVED_INSNS): Use FUNCTION_DECL_CHECK.
(DECL_FRAME_SIZE, DECL_FUNCTION_CODE, DECL_NO_STATIC_CHAIN): Likewise.
(DECL_INLINE, DECL_BUILT_IN_NONANSI, DECL_IS_MALLOC): Likewise.
(DECL_BUILT_IN_CLASS, DECL_STATIC_CONSTRUCTOR): Likewise.
(DECL_STATIC_DESTRUCTOR, DECL_NO_CHECK_MEMORY_USAGE): Likewise.
(DECL_NO_INSTRUMENT_FUNCTION_ENTRY_EXIT, DECL_NO_LIMIT_STACK) Likewise.
(DECL_ORIGINAL_TYPE, TYPE_DECL_SUPPRESS_DEBUG): Use TYPE_DECL_CHECK.
(DECL_ARG_TYPE_AS_WRITEN, DECL_ARG_TYPE): Use PARM_DECL_CHECK.
(DECL_INCOMING_RTL, DECL_TRANSPARENT_UNION): Likewise.
(DECL_ALIGN): Adjust to new field in union.
(DECL_OFFSET_ALIGN): New field.
(DECL_ERROR_ISSUED, DECL_TOO_LATE): Use LABEL_DECL_CHECK.
(DECL_IN_TEXT_SECTION): Use VAR_DECL_CHECK.
(union tree_decl): Add struct for both aligns.
(enum tree_index): Add TI_BITSIZE_{ZERO,ONE,UNIT}.
(bitsize_zero_node, bitsize_one_node, bitsize_unit_node): Added.
(struct record_layout_info): Rework fields to have offset
alignment and byte and bit position.
(start_record_layout, place_field): Renamed from old names.
(rli_size_so_far, rli_size_unit_so_far, normalize_rli): New decls.
(byte_position, int_byte_position): Likewise.
(get_inner_reference): Change types of position and length.
* unroll.c (unroll_loop): New variable R; use for some loops.
MAX_LOCAL_REGNUM and MAXREGNUM now unsigned.
(calculate_giv_inc): Arg REGNO now unsigned.
(copy_loop_body): REGNO and SRC_REGNO now unsigned.
* varasm.c (assemble_variable): Clean up handling of size using
host_integerp and tree_low_cst.
(decode_addr_const): Use byte, not bit, position.
(output_constructor): bitpos and offsets are HOST_WIDE_INT;
use tree_low_cst and int_bit_position.
* objc/objc-act.c (build_ivar_list_initializer): Use byte_position.
* ch/actions.c (check_missing_cases): BYTES_NEEDED is HOST_WIDE_INT.
* ch/typeck.c (expand_constant_to_buffer): Use int_byte_position.
(extract_constant_from_buffer): Likewise.
* cp/class.c (build_vbase_pointer_fields): layout_field now
place_field.
(get_vfield_offset): Use byte_position.
(set_rtti_entry): Set OFFSET to ssizetype zero.
(get_binfo_offset_as_int): Deleted.
(dfs_record_base_offsets): Use tree_low_cst.
(dfs_search_base_offsets): Likewise.
(layout_nonempty_base_or_field): Reflect changes in RLI format
and call byte_position.
(layout_empty_base): Convert offset to ssizetype.
(build_base_field): use rli_size_unit_so_far.
(dfs_propagate_binfo_offsets): Do computation in proper type.
(layout_virtual_bases): Pass ssizetype to propagate_binfo_offsets.
(layout_class_type): Reflect changes in RLI names and fields.
(finish_struct_1): Set DECL_FIELD_OFFSET.
* cp/dump.c (dequeue_and_dump): Call bit_position.
* cp/expr.c (cplus_expand_constant): Use byte_position.
* cp/rtti.c (expand_class_desc): Use bitsize_one_node.
* cp/typeck.c (build_component_addr): Use byte_position and don't
special case for zero offset.
* f/com.c (ffecom_tree_canonize_ptr_): Use bitsize_zero_node.
(ffecom_tree_canonize_ref_): Likewise.
* java/class.c (make_field_value): Use byte_position.
* java/expr.c (JAVA_ARRAY_LENGTH_OFFSET): Use byte_position.
(java_array_data_offset): Likewise.
* java/java-tree.h (MAYBE_CREATE_TYPE_TYPE_LANG_SPECIFIC): Add case to
bzero call.
From-SVN: r32742
2000-03-25 19:34:13 +01:00
|
|
|
|
/* Set offset. */
|
|
|
|
|
ivar = tree_cons (NULL_TREE, byte_position (field_decl), ivar);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE,
|
1993-08-24 11:56:48 +02:00
|
|
|
|
build_constructor (type, nreverse (ivar)),
|
|
|
|
|
initlist);
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl = TREE_CHAIN (field_decl);
|
|
|
|
|
}
|
|
|
|
|
while (field_decl);
|
|
|
|
|
|
1993-08-24 11:56:48 +02:00
|
|
|
|
return build_constructor (build_array_type (type, 0), nreverse (initlist));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
generate_ivars_list (type, name, size, list)
|
|
|
|
|
tree type;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *name;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int size;
|
|
|
|
|
tree list;
|
|
|
|
|
{
|
|
|
|
|
tree sc_spec, decl_specs, decl, initlist;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, type, sc_spec);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
decl = start_decl (synth_id_with_class_suffix (name, implementation_context),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, 1, NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = build_tree_list (NULL_TREE, build_int_2 (size, 0));
|
|
|
|
|
initlist = tree_cons (NULL_TREE, list, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
finish_decl (decl,
|
|
|
|
|
build_constructor (TREE_TYPE (decl), nreverse (initlist)),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return decl;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
generate_ivar_lists ()
|
|
|
|
|
{
|
|
|
|
|
tree initlist, ivar_list_template, chain;
|
|
|
|
|
tree cast, variable_length_type;
|
|
|
|
|
int size;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
generating_instance_variables = 1;
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!objc_ivar_template)
|
|
|
|
|
objc_ivar_template = build_ivar_template ();
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
cast
|
|
|
|
|
= build_tree_list
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
(build_tree_list (NULL_TREE, xref_tag (RECORD_TYPE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
get_identifier (UTAG_IVAR_LIST))),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
variable_length_type = groktypename (cast);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Only generate class variables for the root of the inheritance
|
1996-07-04 00:07:53 +02:00
|
|
|
|
hierarchy since these will be the same for every class. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (CLASS_SUPER_NAME (implementation_template) == NULL_TREE
|
1992-01-18 00:15:38 +01:00
|
|
|
|
&& (chain = TYPE_FIELDS (objc_class_template)))
|
|
|
|
|
{
|
1993-08-24 11:56:48 +02:00
|
|
|
|
size = list_length (chain);
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
ivar_list_template = build_ivar_list_template (objc_ivar_template, size);
|
1993-08-24 11:56:48 +02:00
|
|
|
|
initlist = build_ivar_list_initializer (objc_ivar_template, chain);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
UOBJC_CLASS_VARIABLES_decl
|
|
|
|
|
= generate_ivars_list (ivar_list_template, "_OBJC_CLASS_VARIABLES",
|
|
|
|
|
size, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_TYPE (UOBJC_CLASS_VARIABLES_decl) = variable_length_type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_CLASS_VARIABLES_decl = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
chain = CLASS_IVARS (implementation_template);
|
|
|
|
|
if (chain)
|
|
|
|
|
{
|
1993-08-24 11:56:48 +02:00
|
|
|
|
size = list_length (chain);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
ivar_list_template = build_ivar_list_template (objc_ivar_template, size);
|
1993-08-24 11:56:48 +02:00
|
|
|
|
initlist = build_ivar_list_initializer (objc_ivar_template, chain);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
UOBJC_INSTANCE_VARIABLES_decl
|
|
|
|
|
= generate_ivars_list (ivar_list_template, "_OBJC_INSTANCE_VARIABLES",
|
|
|
|
|
size, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_TYPE (UOBJC_INSTANCE_VARIABLES_decl) = variable_length_type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_INSTANCE_VARIABLES_decl = 0;
|
|
|
|
|
|
|
|
|
|
generating_instance_variables = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
1993-08-24 11:56:48 +02:00
|
|
|
|
build_dispatch_table_initializer (type, entries)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
tree type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree entries;
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree initlist = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
do
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree elemlist = NULL_TREE;
|
1993-08-24 11:56:48 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
elemlist = tree_cons (NULL_TREE,
|
|
|
|
|
build_selector (METHOD_SEL_NAME (entries)),
|
|
|
|
|
NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
elemlist = tree_cons (NULL_TREE,
|
|
|
|
|
add_objc_string (METHOD_ENCODING (entries),
|
|
|
|
|
meth_var_types),
|
1993-08-24 11:56:48 +02:00
|
|
|
|
elemlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
elemlist = tree_cons (NULL_TREE,
|
|
|
|
|
build_unary_op (ADDR_EXPR,
|
|
|
|
|
METHOD_DEFINITION (entries), 1),
|
1993-08-24 11:56:48 +02:00
|
|
|
|
elemlist);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE,
|
1993-08-24 11:56:48 +02:00
|
|
|
|
build_constructor (type, nreverse (elemlist)),
|
|
|
|
|
initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
entries = TREE_CHAIN (entries);
|
|
|
|
|
}
|
|
|
|
|
while (entries);
|
|
|
|
|
|
1993-08-24 11:56:48 +02:00
|
|
|
|
return build_constructor (build_array_type (type, 0), nreverse (initlist));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* To accomplish method prototyping without generating all kinds of
|
|
|
|
|
inane warnings, the definition of the dispatch table entries were
|
|
|
|
|
changed from:
|
|
|
|
|
|
1993-08-24 11:56:48 +02:00
|
|
|
|
struct objc_method { SEL _cmd; ...; id (*_imp)(); };
|
1993-04-10 01:12:37 +02:00
|
|
|
|
to:
|
1993-08-24 11:56:48 +02:00
|
|
|
|
struct objc_method { SEL _cmd; ...; void *_imp; }; */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
build_method_template ()
|
|
|
|
|
{
|
|
|
|
|
tree _SLT_record;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree decl_specs, field_decl, field_decl_chain;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
_SLT_record = start_struct (RECORD_TYPE, get_identifier (UTAG_METHOD));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* struct objc_selector *_cmd; */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = tree_cons (NULL_TREE,
|
1992-01-18 00:15:38 +01:00
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (TAG_SELECTOR)),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("_cmd"));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
field_decl_chain = field_decl;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], NULL_TREE);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE,
|
|
|
|
|
get_identifier ("method_types"));
|
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
|
|
|
|
/* void *_imp; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_VOID], NULL_TREE);
|
|
|
|
|
field_decl = build1 (INDIRECT_REF, NULL_TREE, get_identifier ("_imp"));
|
|
|
|
|
field_decl = grokfield (input_filename, lineno, field_decl,
|
|
|
|
|
decl_specs, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (field_decl_chain, field_decl);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (_SLT_record, field_decl_chain, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return _SLT_record;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
generate_dispatch_table (type, name, size, list)
|
|
|
|
|
tree type;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *name;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int size;
|
|
|
|
|
tree list;
|
|
|
|
|
{
|
|
|
|
|
tree sc_spec, decl_specs, decl, initlist;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, type, sc_spec);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
decl = start_decl (synth_id_with_class_suffix (name, implementation_context),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, 1, NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = build_tree_list (NULL_TREE, build_int_2 (0, 0));
|
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (size, 0), initlist);
|
|
|
|
|
initlist = tree_cons (NULL_TREE, list, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
finish_decl (decl,
|
|
|
|
|
build_constructor (TREE_TYPE (decl), nreverse (initlist)),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return decl;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
generate_dispatch_tables ()
|
|
|
|
|
{
|
|
|
|
|
tree initlist, chain, method_list_template;
|
|
|
|
|
tree cast, variable_length_type;
|
|
|
|
|
int size;
|
|
|
|
|
|
|
|
|
|
if (!objc_method_template)
|
|
|
|
|
objc_method_template = build_method_template ();
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
cast
|
|
|
|
|
= build_tree_list
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
(build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_METHOD_LIST))),
|
|
|
|
|
NULL_TREE);
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
variable_length_type = groktypename (cast);
|
|
|
|
|
|
|
|
|
|
chain = CLASS_CLS_METHODS (implementation_context);
|
|
|
|
|
if (chain)
|
|
|
|
|
{
|
1993-08-24 11:56:48 +02:00
|
|
|
|
size = list_length (chain);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
method_list_template
|
|
|
|
|
= build_method_list_template (objc_method_template, size);
|
|
|
|
|
initlist
|
|
|
|
|
= build_dispatch_table_initializer (objc_method_template, chain);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
UOBJC_CLASS_METHODS_decl
|
|
|
|
|
= generate_dispatch_table (method_list_template,
|
|
|
|
|
((TREE_CODE (implementation_context)
|
|
|
|
|
== CLASS_IMPLEMENTATION_TYPE)
|
|
|
|
|
? "_OBJC_CLASS_METHODS"
|
|
|
|
|
: "_OBJC_CATEGORY_CLASS_METHODS"),
|
|
|
|
|
size, initlist);
|
|
|
|
|
TREE_TYPE (UOBJC_CLASS_METHODS_decl) = variable_length_type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_CLASS_METHODS_decl = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
chain = CLASS_NST_METHODS (implementation_context);
|
|
|
|
|
if (chain)
|
|
|
|
|
{
|
1993-08-24 11:56:48 +02:00
|
|
|
|
size = list_length (chain);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
method_list_template
|
|
|
|
|
= build_method_list_template (objc_method_template, size);
|
|
|
|
|
initlist
|
|
|
|
|
= build_dispatch_table_initializer (objc_method_template, chain);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (implementation_context) == CLASS_IMPLEMENTATION_TYPE)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
UOBJC_INSTANCE_METHODS_decl
|
|
|
|
|
= generate_dispatch_table (method_list_template,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
"_OBJC_INSTANCE_METHODS",
|
1992-01-18 00:15:38 +01:00
|
|
|
|
size, initlist);
|
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have a category. */
|
1993-08-01 07:53:52 +02:00
|
|
|
|
UOBJC_INSTANCE_METHODS_decl
|
|
|
|
|
= generate_dispatch_table (method_list_template,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
"_OBJC_CATEGORY_INSTANCE_METHODS",
|
1992-01-18 00:15:38 +01:00
|
|
|
|
size, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_TYPE (UOBJC_INSTANCE_METHODS_decl) = variable_length_type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_INSTANCE_METHODS_decl = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
generate_protocol_list (i_or_p)
|
|
|
|
|
tree i_or_p;
|
|
|
|
|
{
|
|
|
|
|
tree initlist, decl_specs, sc_spec;
|
|
|
|
|
tree refs_decl, expr_decl, lproto, e, plist;
|
2000-06-05 18:59:43 +02:00
|
|
|
|
tree cast_type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int size = 0;
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (i_or_p) == CLASS_INTERFACE_TYPE
|
|
|
|
|
|| TREE_CODE (i_or_p) == CATEGORY_INTERFACE_TYPE)
|
|
|
|
|
plist = CLASS_PROTOCOL_LIST (i_or_p);
|
|
|
|
|
else if (TREE_CODE (i_or_p) == PROTOCOL_INTERFACE_TYPE)
|
|
|
|
|
plist = PROTOCOL_LIST (i_or_p);
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
2000-06-05 18:59:43 +02:00
|
|
|
|
cast_type = groktypename
|
|
|
|
|
(build_tree_list
|
|
|
|
|
(build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_PROTOCOL))),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, NULL_TREE)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Compute size. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (lproto = plist; lproto; lproto = TREE_CHAIN (lproto))
|
|
|
|
|
if (TREE_CODE (TREE_VALUE (lproto)) == PROTOCOL_INTERFACE_TYPE
|
|
|
|
|
&& PROTOCOL_FORWARD_DECL (TREE_VALUE (lproto)))
|
|
|
|
|
size++;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Build initializer. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
e = build_int_2 (size, 0);
|
|
|
|
|
TREE_TYPE (e) = cast_type;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, e, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
for (lproto = plist; lproto; lproto = TREE_CHAIN (lproto))
|
|
|
|
|
{
|
|
|
|
|
tree pval = TREE_VALUE (lproto);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (pval) == PROTOCOL_INTERFACE_TYPE
|
|
|
|
|
&& PROTOCOL_FORWARD_DECL (pval))
|
|
|
|
|
{
|
|
|
|
|
e = build_unary_op (ADDR_EXPR, PROTOCOL_FORWARD_DECL (pval), 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, e, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* static struct objc_protocol *refs[n]; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, xref_tag (RECORD_TYPE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
get_identifier (UTAG_PROTOCOL)),
|
|
|
|
|
sc_spec);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (i_or_p) == PROTOCOL_INTERFACE_TYPE)
|
|
|
|
|
expr_decl = build_nt (ARRAY_REF,
|
|
|
|
|
synth_id_with_class_suffix ("_OBJC_PROTOCOL_REFS",
|
|
|
|
|
i_or_p),
|
|
|
|
|
build_int_2 (size + 2, 0));
|
|
|
|
|
else if (TREE_CODE (i_or_p) == CLASS_INTERFACE_TYPE)
|
|
|
|
|
expr_decl = build_nt (ARRAY_REF,
|
|
|
|
|
synth_id_with_class_suffix ("_OBJC_CLASS_PROTOCOLS",
|
|
|
|
|
i_or_p),
|
|
|
|
|
build_int_2 (size + 2, 0));
|
|
|
|
|
else if (TREE_CODE (i_or_p) == CATEGORY_INTERFACE_TYPE)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
expr_decl
|
|
|
|
|
= build_nt (ARRAY_REF,
|
|
|
|
|
synth_id_with_class_suffix ("_OBJC_CATEGORY_PROTOCOLS",
|
|
|
|
|
i_or_p),
|
|
|
|
|
build_int_2 (size + 2, 0));
|
1999-04-14 22:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
expr_decl = build1 (INDIRECT_REF, NULL_TREE, expr_decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
refs_decl = start_decl (expr_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
|
2001-05-01 22:45:55 +02:00
|
|
|
|
DECL_CONTEXT (refs_decl) = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
finish_decl (refs_decl, build_constructor (TREE_TYPE (refs_decl),
|
|
|
|
|
nreverse (initlist)),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
return refs_decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
1993-08-01 07:53:52 +02:00
|
|
|
|
build_category_initializer (type, cat_name, class_name,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
instance_methods, class_methods, protocol_list)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
tree type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree cat_name;
|
|
|
|
|
tree class_name;
|
|
|
|
|
tree instance_methods;
|
|
|
|
|
tree class_methods;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree protocol_list;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree initlist = NULL_TREE, expr;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, cat_name, initlist);
|
|
|
|
|
initlist = tree_cons (NULL_TREE, class_name, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (!instance_methods)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, instance_methods, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
if (!class_methods)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, class_methods, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* protocol_list = */
|
|
|
|
|
if (!protocol_list)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2000-06-05 18:59:43 +02:00
|
|
|
|
tree cast_type2 = groktypename
|
|
|
|
|
(build_tree_list
|
|
|
|
|
(build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_PROTOCOL))),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE,
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, NULL_TREE))));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, protocol_list, 0);
|
|
|
|
|
TREE_TYPE (expr) = cast_type2;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return build_constructor (type, nreverse (initlist));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* struct objc_class {
|
|
|
|
|
struct objc_class *isa;
|
|
|
|
|
struct objc_class *super_class;
|
|
|
|
|
char *name;
|
|
|
|
|
long version;
|
|
|
|
|
long info;
|
|
|
|
|
long instance_size;
|
|
|
|
|
struct objc_ivar_list *ivars;
|
|
|
|
|
struct objc_method_list *methods;
|
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
struct objc_cache *cache;
|
|
|
|
|
else {
|
|
|
|
|
struct sarray *dtable;
|
|
|
|
|
struct objc_class *subclass_list;
|
|
|
|
|
struct objc_class *sibling_class;
|
|
|
|
|
}
|
|
|
|
|
struct objc_protocol_list *protocols;
|
1998-09-03 01:48:01 +02:00
|
|
|
|
void *gc_object_type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}; */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
1993-08-01 07:53:52 +02:00
|
|
|
|
build_shared_structure_initializer (type, isa, super, name, size, status,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
dispatch_table, ivar_list, protocol_list)
|
1993-08-01 07:53:52 +02:00
|
|
|
|
tree type;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree isa;
|
|
|
|
|
tree super;
|
|
|
|
|
tree name;
|
|
|
|
|
tree size;
|
|
|
|
|
int status;
|
|
|
|
|
tree dispatch_table;
|
|
|
|
|
tree ivar_list;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree protocol_list;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree initlist = NULL_TREE, expr;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* isa = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, isa, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* super_class = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, super, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* name = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, default_conversion (name), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* version = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* info = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (status, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* instance_size = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, size, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* objc_ivar_list = */
|
|
|
|
|
if (!ivar_list)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, ivar_list, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* objc_method_list = */
|
|
|
|
|
if (!dispatch_table)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, dispatch_table, 0);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
/* method_cache = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* dtable = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* subclass_list = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* sibling_class = */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* protocol_list = */
|
|
|
|
|
if (! protocol_list)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
2000-06-05 18:59:43 +02:00
|
|
|
|
tree cast_type2
|
|
|
|
|
= groktypename
|
|
|
|
|
(build_tree_list
|
|
|
|
|
(build_tree_list (NULL_TREE,
|
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (UTAG_PROTOCOL))),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE,
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, NULL_TREE))));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, protocol_list, 0);
|
|
|
|
|
TREE_TYPE (expr) = cast_type2;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
initlist = tree_cons (NULL_TREE, expr, initlist);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1998-09-03 01:48:01 +02:00
|
|
|
|
/* gc_object_type = NULL */
|
|
|
|
|
initlist = tree_cons (NULL_TREE, build_int_2 (0, 0), initlist);
|
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
return build_constructor (type, nreverse (initlist));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* static struct objc_category _OBJC_CATEGORY_<name> = { ... }; */
|
1996-07-04 00:07:53 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
generate_category (cat)
|
|
|
|
|
tree cat;
|
|
|
|
|
{
|
|
|
|
|
tree sc_spec, decl_specs, decl;
|
|
|
|
|
tree initlist, cat_name_expr, class_name_expr;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree protocol_decl, category;
|
|
|
|
|
|
|
|
|
|
add_class_reference (CLASS_NAME (cat));
|
|
|
|
|
cat_name_expr = add_objc_string (CLASS_SUPER_NAME (cat), class_names);
|
|
|
|
|
|
|
|
|
|
class_name_expr = add_objc_string (CLASS_NAME (cat), class_names);
|
|
|
|
|
|
|
|
|
|
category = CLASS_CATEGORY_LIST (implementation_template);
|
|
|
|
|
|
|
|
|
|
/* find the category interface from the class it is associated with */
|
|
|
|
|
while (category)
|
|
|
|
|
{
|
|
|
|
|
if (CLASS_SUPER_NAME (cat) == CLASS_SUPER_NAME (category))
|
|
|
|
|
break;
|
|
|
|
|
category = CLASS_CATEGORY_LIST (category);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (category && CLASS_PROTOCOL_LIST (category))
|
|
|
|
|
{
|
|
|
|
|
generate_protocol_references (CLASS_PROTOCOL_LIST (category));
|
|
|
|
|
protocol_decl = generate_protocol_list (category);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
protocol_decl = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, objc_category_template, sc_spec);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
decl = start_decl (synth_id_with_class_suffix ("_OBJC_CATEGORY",
|
|
|
|
|
implementation_context),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs, 1, NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-08-01 07:53:52 +02:00
|
|
|
|
initlist = build_category_initializer (TREE_TYPE (decl),
|
|
|
|
|
cat_name_expr, class_name_expr,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_INSTANCE_METHODS_decl,
|
|
|
|
|
UOBJC_CLASS_METHODS_decl,
|
|
|
|
|
protocol_decl);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_USED (decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (decl, initlist, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* static struct objc_class _OBJC_METACLASS_Foo={ ... };
|
|
|
|
|
static struct objc_class _OBJC_CLASS_Foo={ ... }; */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
generate_shared_structures ()
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree sc_spec, decl_specs, decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree name_expr, super_expr, root_expr;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree my_root_id = NULL_TREE, my_super_id = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree cast_type, initlist, protocol_decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
my_super_id = CLASS_SUPER_NAME (implementation_template);
|
|
|
|
|
if (my_super_id)
|
|
|
|
|
{
|
|
|
|
|
add_class_reference (my_super_id);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Compute "my_root_id" - this is required for code generation.
|
|
|
|
|
the "isa" for all meta class structures points to the root of
|
|
|
|
|
the inheritance hierarchy (e.g. "__Object")... */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
my_root_id = my_super_id;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
tree my_root_int = lookup_interface (my_root_id);
|
|
|
|
|
|
|
|
|
|
if (my_root_int && CLASS_SUPER_NAME (my_root_int))
|
|
|
|
|
my_root_id = CLASS_SUPER_NAME (my_root_int);
|
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
while (1);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* No super class. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
my_root_id = CLASS_NAME (implementation_template);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
cast_type
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
= groktypename (build_tree_list (build_tree_list (NULL_TREE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
objc_class_template),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
build1 (INDIRECT_REF,
|
|
|
|
|
NULL_TREE, NULL_TREE)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
name_expr = add_objc_string (CLASS_NAME (implementation_template),
|
|
|
|
|
class_names);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Install class `isa' and `super' pointers at runtime. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (my_super_id)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
super_expr = add_objc_string (my_super_id, class_names);
|
|
|
|
|
super_expr = build_c_cast (cast_type, super_expr); /* cast! */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
super_expr = build_int_2 (0, 0);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
root_expr = add_objc_string (my_root_id, class_names);
|
|
|
|
|
root_expr = build_c_cast (cast_type, root_expr); /* cast! */
|
|
|
|
|
|
|
|
|
|
if (CLASS_PROTOCOL_LIST (implementation_template))
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
generate_protocol_references
|
|
|
|
|
(CLASS_PROTOCOL_LIST (implementation_template));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
protocol_decl = generate_protocol_list (implementation_template);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
protocol_decl = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* static struct objc_class _OBJC_METACLASS_Foo = { ... }; */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = build_tree_list (NULL_TREE, ridpointers[(int) RID_STATIC]);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, objc_class_template, sc_spec);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1995-04-28 07:07:47 +02:00
|
|
|
|
decl = start_decl (DECL_NAME (UOBJC_METACLASS_decl), decl_specs, 1,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
initlist
|
|
|
|
|
= build_shared_structure_initializer
|
1993-08-01 07:53:52 +02:00
|
|
|
|
(TREE_TYPE (decl),
|
|
|
|
|
root_expr, super_expr, name_expr,
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
convert (integer_type_node, TYPE_SIZE_UNIT (objc_class_template)),
|
1993-04-10 01:12:37 +02:00
|
|
|
|
2 /*CLS_META*/,
|
|
|
|
|
UOBJC_CLASS_METHODS_decl,
|
|
|
|
|
UOBJC_CLASS_VARIABLES_decl,
|
|
|
|
|
protocol_decl);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (decl, initlist, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* static struct objc_class _OBJC_CLASS_Foo={ ... }; */
|
|
|
|
|
|
1995-04-28 07:07:47 +02:00
|
|
|
|
decl = start_decl (DECL_NAME (UOBJC_CLASS_decl), decl_specs, 1,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
initlist
|
|
|
|
|
= build_shared_structure_initializer
|
1993-08-01 07:53:52 +02:00
|
|
|
|
(TREE_TYPE (decl),
|
|
|
|
|
build_unary_op (ADDR_EXPR, UOBJC_METACLASS_decl, 0),
|
1993-04-10 01:12:37 +02:00
|
|
|
|
super_expr, name_expr,
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
convert (integer_type_node,
|
|
|
|
|
TYPE_SIZE_UNIT (CLASS_STATIC_TEMPLATE
|
|
|
|
|
(implementation_template))),
|
1993-04-10 01:12:37 +02:00
|
|
|
|
1 /*CLS_FACTORY*/,
|
|
|
|
|
UOBJC_INSTANCE_METHODS_decl,
|
|
|
|
|
UOBJC_INSTANCE_VARIABLES_decl,
|
|
|
|
|
protocol_decl);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (decl, initlist, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
1993-04-10 01:12:37 +02:00
|
|
|
|
synth_id_with_class_suffix (preamble, ctxt)
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *preamble;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree ctxt;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1992-04-23 04:20:18 +02:00
|
|
|
|
char *string;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (ctxt) == CLASS_IMPLEMENTATION_TYPE
|
|
|
|
|
|| TREE_CODE (ctxt) == CLASS_INTERFACE_TYPE)
|
1992-04-23 04:20:18 +02:00
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *class_name
|
1993-04-10 01:12:37 +02:00
|
|
|
|
= IDENTIFIER_POINTER (CLASS_NAME (implementation_context));
|
|
|
|
|
string = (char *) alloca (strlen (preamble) + strlen (class_name) + 3);
|
1992-04-23 04:20:18 +02:00
|
|
|
|
sprintf (string, "%s_%s", preamble,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
IDENTIFIER_POINTER (CLASS_NAME (ctxt)));
|
1992-04-23 04:20:18 +02:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (TREE_CODE (ctxt) == CATEGORY_IMPLEMENTATION_TYPE
|
|
|
|
|
|| TREE_CODE (ctxt) == CATEGORY_INTERFACE_TYPE)
|
1992-04-23 04:20:18 +02:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have a category. */
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *class_name
|
1993-04-10 01:12:37 +02:00
|
|
|
|
= IDENTIFIER_POINTER (CLASS_NAME (implementation_context));
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *class_super_name
|
1993-04-10 01:12:37 +02:00
|
|
|
|
= IDENTIFIER_POINTER (CLASS_SUPER_NAME (implementation_context));
|
1992-04-23 04:20:18 +02:00
|
|
|
|
string = (char *) alloca (strlen (preamble)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
+ strlen (class_name)
|
|
|
|
|
+ strlen (class_super_name)
|
1992-04-23 04:20:18 +02:00
|
|
|
|
+ 3);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
sprintf (string, "%s_%s_%s", preamble, class_name, class_super_name);
|
|
|
|
|
}
|
|
|
|
|
else if (TREE_CODE (ctxt) == PROTOCOL_INTERFACE_TYPE)
|
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *protocol_name = IDENTIFIER_POINTER (PROTOCOL_NAME (ctxt));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
string
|
|
|
|
|
= (char *) alloca (strlen (preamble) + strlen (protocol_name) + 3);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
sprintf (string, "%s_%s", preamble, protocol_name);
|
1992-04-23 04:20:18 +02:00
|
|
|
|
}
|
1999-04-14 22:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
1992-04-23 04:20:18 +02:00
|
|
|
|
return get_identifier (string);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static int
|
|
|
|
|
is_objc_type_qualifier (node)
|
|
|
|
|
tree node;
|
|
|
|
|
{
|
|
|
|
|
return (TREE_CODE (node) == IDENTIFIER_NODE
|
|
|
|
|
&& (node == ridpointers [(int) RID_CONST]
|
|
|
|
|
|| node == ridpointers [(int) RID_VOLATILE]
|
|
|
|
|
|| node == ridpointers [(int) RID_IN]
|
|
|
|
|
|| node == ridpointers [(int) RID_OUT]
|
|
|
|
|
|| node == ridpointers [(int) RID_INOUT]
|
|
|
|
|
|| node == ridpointers [(int) RID_BYCOPY]
|
1998-10-08 13:28:08 +02:00
|
|
|
|
|| node == ridpointers [(int) RID_BYREF]
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|| node == ridpointers [(int) RID_ONEWAY]));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If type is empty or only type qualifiers are present, add default
|
|
|
|
|
type of id (otherwise grokdeclarator will default to int). */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
adjust_type_for_id_default (type)
|
|
|
|
|
tree type;
|
|
|
|
|
{
|
|
|
|
|
tree declspecs, chain;
|
|
|
|
|
|
|
|
|
|
if (!type)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return build_tree_list (build_tree_list (NULL_TREE, objc_object_reference),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, NULL_TREE));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
declspecs = TREE_PURPOSE (type);
|
|
|
|
|
|
|
|
|
|
/* Determine if a typespec is present. */
|
|
|
|
|
for (chain = declspecs;
|
|
|
|
|
chain;
|
|
|
|
|
chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
if (!is_objc_type_qualifier (TREE_VALUE (chain)))
|
|
|
|
|
return type;
|
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return build_tree_list (tree_cons (NULL_TREE, objc_object_reference,
|
|
|
|
|
declspecs),
|
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, NULL_TREE));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Usage:
|
1993-04-10 01:12:37 +02:00
|
|
|
|
keyworddecl:
|
|
|
|
|
selector ':' '(' typename ')' identifier
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
Purpose:
|
|
|
|
|
Transform an Objective-C keyword argument into
|
1993-04-10 01:12:37 +02:00
|
|
|
|
the C equivalent parameter declarator.
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
In: key_name, an "identifier_node" (optional).
|
1993-04-10 01:12:37 +02:00
|
|
|
|
arg_type, a "tree_list" (optional).
|
|
|
|
|
arg_name, an "identifier_node".
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
Note: It would be really nice to strongly type the preceding
|
|
|
|
|
arguments in the function prototype; however, then I
|
1993-04-10 01:12:37 +02:00
|
|
|
|
could not use the "accessor" macros defined in "tree.h".
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
Out: an instance of "keyword_decl". */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
build_keyword_decl (key_name, arg_type, arg_name)
|
|
|
|
|
tree key_name;
|
|
|
|
|
tree arg_type;
|
|
|
|
|
tree arg_name;
|
|
|
|
|
{
|
|
|
|
|
tree keyword_decl;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* If no type is specified, default to "id". */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
arg_type = adjust_type_for_id_default (arg_type);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
keyword_decl = make_node (KEYWORD_DECL);
|
|
|
|
|
|
|
|
|
|
TREE_TYPE (keyword_decl) = arg_type;
|
|
|
|
|
KEYWORD_ARG_NAME (keyword_decl) = arg_name;
|
|
|
|
|
KEYWORD_KEY_NAME (keyword_decl) = key_name;
|
|
|
|
|
|
|
|
|
|
return keyword_decl;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Given a chain of keyword_decl's, synthesize the full keyword selector. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
build_keyword_selector (selector)
|
|
|
|
|
tree selector;
|
|
|
|
|
{
|
|
|
|
|
int len = 0;
|
|
|
|
|
tree key_chain, key_name;
|
|
|
|
|
char *buf;
|
|
|
|
|
|
2001-03-28 04:49:19 +02:00
|
|
|
|
/* Scan the selector to see how much space we'll need. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (key_chain = selector; key_chain; key_chain = TREE_CHAIN (key_chain))
|
|
|
|
|
{
|
|
|
|
|
if (TREE_CODE (selector) == KEYWORD_DECL)
|
|
|
|
|
key_name = KEYWORD_KEY_NAME (key_chain);
|
|
|
|
|
else if (TREE_CODE (selector) == TREE_LIST)
|
|
|
|
|
key_name = TREE_PURPOSE (key_chain);
|
1999-04-14 22:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (key_name)
|
|
|
|
|
len += IDENTIFIER_LENGTH (key_name) + 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Just a ':' arg. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
len++;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
2001-03-28 04:49:19 +02:00
|
|
|
|
buf = (char *) alloca (len + 1);
|
|
|
|
|
/* Start the buffer out as an empty string. */
|
|
|
|
|
buf[0] = '\0';
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
for (key_chain = selector; key_chain; key_chain = TREE_CHAIN (key_chain))
|
|
|
|
|
{
|
|
|
|
|
if (TREE_CODE (selector) == KEYWORD_DECL)
|
|
|
|
|
key_name = KEYWORD_KEY_NAME (key_chain);
|
|
|
|
|
else if (TREE_CODE (selector) == TREE_LIST)
|
|
|
|
|
key_name = TREE_PURPOSE (key_chain);
|
1999-04-14 22:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (key_name)
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (key_name));
|
|
|
|
|
strcat (buf, ":");
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return get_identifier (buf);
|
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Used for declarations and definitions. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
build_method_decl (code, ret_type, selector, add_args)
|
|
|
|
|
enum tree_code code;
|
|
|
|
|
tree ret_type;
|
|
|
|
|
tree selector;
|
|
|
|
|
tree add_args;
|
|
|
|
|
{
|
|
|
|
|
tree method_decl;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* If no type is specified, default to "id". */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
ret_type = adjust_type_for_id_default (ret_type);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
method_decl = make_node (code);
|
|
|
|
|
TREE_TYPE (method_decl) = ret_type;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* If we have a keyword selector, create an identifier_node that
|
|
|
|
|
represents the full selector name (`:' included)... */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (TREE_CODE (selector) == KEYWORD_DECL)
|
|
|
|
|
{
|
|
|
|
|
METHOD_SEL_NAME (method_decl) = build_keyword_selector (selector);
|
|
|
|
|
METHOD_SEL_ARGS (method_decl) = selector;
|
|
|
|
|
METHOD_ADD_ARGS (method_decl) = add_args;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
METHOD_SEL_NAME (method_decl) = selector;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
METHOD_SEL_ARGS (method_decl) = NULL_TREE;
|
|
|
|
|
METHOD_ADD_ARGS (method_decl) = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return method_decl;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#define METHOD_DEF 0
|
|
|
|
|
#define METHOD_REF 1
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* Used by `build_message_expr' and `comp_method_types'. Return an
|
|
|
|
|
argument list for method METH. CONTEXT is either METHOD_DEF or
|
|
|
|
|
METHOD_REF, saying whether we are trying to define a method or call
|
|
|
|
|
one. SUPERFLAG says this is for a send to super; this makes a
|
|
|
|
|
difference for the NeXT calling sequence in which the lookup and
|
|
|
|
|
the method call are done together. */
|
1992-03-16 05:38:38 +01:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
get_arg_type_list (meth, context, superflag)
|
|
|
|
|
tree meth;
|
|
|
|
|
int context;
|
|
|
|
|
int superflag;
|
|
|
|
|
{
|
|
|
|
|
tree arglist, akey;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Receiver type. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime && superflag)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
arglist = build_tree_list (NULL_TREE, super_type);
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
else if (context == METHOD_DEF)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
arglist = build_tree_list (NULL_TREE, TREE_TYPE (self_decl));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
arglist = build_tree_list (NULL_TREE, id_type);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Selector type - will eventually change to `int'. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
chainon (arglist, build_tree_list (NULL_TREE, selector_type));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Build a list of argument types. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (akey = METHOD_SEL_ARGS (meth); akey; akey = TREE_CHAIN (akey))
|
|
|
|
|
{
|
|
|
|
|
tree arg_decl = groktypename_in_parm_context (TREE_TYPE (akey));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
chainon (arglist, build_tree_list (NULL_TREE, TREE_TYPE (arg_decl)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
if (METHOD_ADD_ARGS (meth) == objc_ellipsis_node)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* We have a `, ...' immediately following the selector,
|
|
|
|
|
finalize the arglist...simulate get_parm_info (0). */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
;
|
|
|
|
|
else if (METHOD_ADD_ARGS (meth))
|
|
|
|
|
{
|
|
|
|
|
/* we have a variable length selector */
|
|
|
|
|
tree add_arg_list = TREE_CHAIN (METHOD_ADD_ARGS (meth));
|
|
|
|
|
chainon (arglist, add_arg_list);
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
|
|
|
|
/* finalize the arglist...simulate get_parm_info (1) */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
chainon (arglist, build_tree_list (NULL_TREE, void_type_node));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return arglist;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
check_duplicates (hsh)
|
|
|
|
|
hash hsh;
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree meth = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (hsh)
|
|
|
|
|
{
|
|
|
|
|
meth = hsh->key;
|
|
|
|
|
|
|
|
|
|
if (hsh->list)
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have two methods with the same name and different types. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
attr loop;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
char type = (TREE_CODE (meth) == INSTANCE_METHOD_DECL) ? '-' : '+';
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
warning ("multiple declarations for method `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (METHOD_SEL_NAME (meth)));
|
|
|
|
|
|
|
|
|
|
warn_with_method ("using", type, meth);
|
|
|
|
|
for (loop = hsh->list; loop; loop = loop->next)
|
|
|
|
|
warn_with_method ("also found", type, loop->value);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return meth;
|
|
|
|
|
}
|
|
|
|
|
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
/* If RECEIVER is a class reference, return the identifier node for the
|
|
|
|
|
referenced class. RECEIVER is created by get_class_reference, so we
|
|
|
|
|
check the exact form created depending on which runtimes are used. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static tree
|
|
|
|
|
receiver_is_class_object (receiver)
|
|
|
|
|
tree receiver;
|
|
|
|
|
{
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
tree chain, exp, arg;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
/* The receiver is a variable created by build_class_reference_decl. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (receiver) == VAR_DECL
|
|
|
|
|
&& TREE_TYPE (receiver) == objc_class_type)
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Look up the identifier. */
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
for (chain = cls_ref_chain; chain; chain = TREE_CHAIN (chain))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_PURPOSE (chain) == receiver)
|
|
|
|
|
return TREE_VALUE (chain);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
/* The receiver is a function call that returns an id. Check if
|
|
|
|
|
it is a call to objc_getClass, if so, pick up the class name. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((exp = TREE_OPERAND (receiver, 0))
|
|
|
|
|
&& TREE_CODE (exp) == ADDR_EXPR
|
|
|
|
|
&& (exp = TREE_OPERAND (exp, 0))
|
|
|
|
|
&& TREE_CODE (exp) == FUNCTION_DECL
|
|
|
|
|
&& exp == objc_get_class_decl
|
1992-01-18 00:15:38 +01:00
|
|
|
|
/* we have a call to objc_getClass! */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
&& (arg = TREE_OPERAND (receiver, 1))
|
|
|
|
|
&& TREE_CODE (arg) == TREE_LIST
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
&& (arg = TREE_VALUE (arg)))
|
|
|
|
|
{
|
|
|
|
|
STRIP_NOPS (arg);
|
|
|
|
|
if (TREE_CODE (arg) == ADDR_EXPR
|
|
|
|
|
&& (arg = TREE_OPERAND (arg, 0))
|
|
|
|
|
&& TREE_CODE (arg) == STRING_CST)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Finally, we have the class name. */
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
return get_identifier (TREE_STRING_POINTER (arg));
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If we are currently building a message expr, this holds
|
|
|
|
|
the identifier of the selector of the message. This is
|
1996-07-04 00:07:53 +02:00
|
|
|
|
used when printing warnings about argument mismatches. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static tree building_objc_message_expr = 0;
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
maybe_building_objc_message_expr ()
|
|
|
|
|
{
|
|
|
|
|
return building_objc_message_expr;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Construct an expression for sending a message.
|
|
|
|
|
MESS has the object to send to in TREE_PURPOSE
|
1993-04-10 01:12:37 +02:00
|
|
|
|
and the argument list (including selector) in TREE_VALUE.
|
|
|
|
|
|
|
|
|
|
(*(<abstract_decl>(*)())_msg)(receiver, selTransTbl[n], ...);
|
|
|
|
|
(*(<abstract_decl>(*)())_msgSuper)(receiver, selTransTbl[n], ...); */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
build_message_expr (mess)
|
|
|
|
|
tree mess;
|
|
|
|
|
{
|
|
|
|
|
tree receiver = TREE_PURPOSE (mess);
|
|
|
|
|
tree selector, self_object;
|
|
|
|
|
tree rtype, sel_name;
|
|
|
|
|
tree args = TREE_VALUE (mess);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree method_params = NULL_TREE;
|
|
|
|
|
tree method_prototype = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree retval;
|
|
|
|
|
int statically_typed = 0, statically_allocated = 0;
|
|
|
|
|
tree class_ident = 0;
|
|
|
|
|
|
|
|
|
|
/* 1 if this is sending to the superclass. */
|
|
|
|
|
int super;
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (receiver) == ERROR_MARK)
|
|
|
|
|
return error_mark_node;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Determine receiver type. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
rtype = TREE_TYPE (receiver);
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
super = IS_SUPER (rtype);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (! super)
|
|
|
|
|
{
|
|
|
|
|
if (TREE_STATIC_TEMPLATE (rtype))
|
|
|
|
|
statically_allocated = 1;
|
|
|
|
|
else if (TREE_CODE (rtype) == POINTER_TYPE
|
|
|
|
|
&& TREE_STATIC_TEMPLATE (TREE_TYPE (rtype)))
|
|
|
|
|
statically_typed = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if ((flag_next_runtime
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
|| (TREE_CODE (receiver) == CALL_EXPR && IS_ID (rtype)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
&& (class_ident = receiver_is_class_object (receiver)))
|
|
|
|
|
;
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
else if (! IS_ID (rtype)
|
|
|
|
|
/* Allow any type that matches objc_class_type. */
|
|
|
|
|
&& ! comptypes (rtype, objc_class_type))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
warning ("invalid receiver type `%s'",
|
|
|
|
|
gen_declaration (rtype, errbuf));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (statically_allocated)
|
|
|
|
|
receiver = build_unary_op (ADDR_EXPR, receiver, 0);
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Don't evaluate the receiver twice. */
|
1992-11-03 09:12:39 +01:00
|
|
|
|
receiver = save_expr (receiver);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
self_object = receiver;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
/* If sending to `super', use current self as the object. */
|
|
|
|
|
self_object = self_decl;
|
|
|
|
|
|
|
|
|
|
/* Obtain the full selector name. */
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (args) == IDENTIFIER_NODE)
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* A unary selector. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
sel_name = args;
|
|
|
|
|
else if (TREE_CODE (args) == TREE_LIST)
|
|
|
|
|
sel_name = build_keyword_selector (args);
|
1999-04-14 22:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* Build the parameter list to give to the method. */
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
method_params = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (TREE_CODE (args) == TREE_LIST)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree chain = args, prev = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* We have a keyword selector--check for comma expressions. */
|
|
|
|
|
while (chain)
|
|
|
|
|
{
|
|
|
|
|
tree element = TREE_VALUE (chain);
|
|
|
|
|
|
|
|
|
|
/* We have a comma expression, must collapse... */
|
|
|
|
|
if (TREE_CODE (element) == TREE_LIST)
|
|
|
|
|
{
|
|
|
|
|
if (prev)
|
|
|
|
|
TREE_CHAIN (prev) = element;
|
|
|
|
|
else
|
|
|
|
|
args = element;
|
|
|
|
|
}
|
|
|
|
|
prev = chain;
|
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
}
|
|
|
|
|
method_params = args;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Determine operation return type. */
|
|
|
|
|
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
if (IS_SUPER (rtype))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree iface;
|
|
|
|
|
|
|
|
|
|
if (CLASS_SUPER_NAME (implementation_template))
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
iface
|
|
|
|
|
= lookup_interface (CLASS_SUPER_NAME (implementation_template));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (TREE_CODE (method_context) == INSTANCE_METHOD_DECL)
|
|
|
|
|
method_prototype = lookup_instance_method_static (iface, sel_name);
|
|
|
|
|
else
|
|
|
|
|
method_prototype = lookup_class_method_static (iface, sel_name);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (iface && !method_prototype)
|
|
|
|
|
warning ("`%s' does not respond to `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_SUPER_NAME (implementation_template)),
|
|
|
|
|
IDENTIFIER_POINTER (sel_name));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
error ("no super class declared in interface for `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_NAME (implementation_template)));
|
|
|
|
|
return error_mark_node;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
else if (statically_allocated)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree ctype = TREE_TYPE (rtype);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree iface = lookup_interface (TYPE_NAME (rtype));
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (iface)
|
|
|
|
|
method_prototype = lookup_instance_method_static (iface, sel_name);
|
|
|
|
|
|
|
|
|
|
if (! method_prototype && TYPE_PROTOCOL_LIST (ctype))
|
|
|
|
|
method_prototype
|
|
|
|
|
= lookup_method_in_protocol_list (TYPE_PROTOCOL_LIST (ctype),
|
|
|
|
|
sel_name, 0);
|
|
|
|
|
|
|
|
|
|
if (!method_prototype)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
warning ("`%s' does not respond to `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (TYPE_NAME (rtype)),
|
|
|
|
|
IDENTIFIER_POINTER (sel_name));
|
|
|
|
|
}
|
|
|
|
|
else if (statically_typed)
|
|
|
|
|
{
|
|
|
|
|
tree ctype = TREE_TYPE (rtype);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* `self' is now statically_typed. All methods should be visible
|
|
|
|
|
within the context of the implementation. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (implementation_context
|
|
|
|
|
&& CLASS_NAME (implementation_context) == TYPE_NAME (ctype))
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
method_prototype
|
|
|
|
|
= lookup_instance_method_static (implementation_template,
|
|
|
|
|
sel_name);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! method_prototype && TYPE_PROTOCOL_LIST (ctype))
|
|
|
|
|
method_prototype
|
|
|
|
|
= lookup_method_in_protocol_list (TYPE_PROTOCOL_LIST (ctype),
|
|
|
|
|
sel_name, 0);
|
|
|
|
|
|
|
|
|
|
if (! method_prototype
|
|
|
|
|
&& implementation_template != implementation_context)
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* The method is not published in the interface. Check
|
|
|
|
|
locally. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
method_prototype
|
|
|
|
|
= lookup_method (CLASS_NST_METHODS (implementation_context),
|
|
|
|
|
sel_name);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
tree iface;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((iface = lookup_interface (TYPE_NAME (ctype))))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
method_prototype = lookup_instance_method_static (iface, sel_name);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (! method_prototype)
|
|
|
|
|
{
|
|
|
|
|
tree protocol_list = TYPE_PROTOCOL_LIST (ctype);
|
|
|
|
|
if (protocol_list)
|
|
|
|
|
method_prototype
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
= lookup_method_in_protocol_list (protocol_list,
|
|
|
|
|
sel_name, 0);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!method_prototype)
|
|
|
|
|
warning ("`%s' does not respond to `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (TYPE_NAME (ctype)),
|
|
|
|
|
IDENTIFIER_POINTER (sel_name));
|
|
|
|
|
}
|
|
|
|
|
else if (class_ident)
|
|
|
|
|
{
|
|
|
|
|
if (implementation_context
|
|
|
|
|
&& CLASS_NAME (implementation_context) == class_ident)
|
|
|
|
|
{
|
|
|
|
|
method_prototype
|
|
|
|
|
= lookup_class_method_static (implementation_template, sel_name);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!method_prototype
|
|
|
|
|
&& implementation_template != implementation_context)
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* The method is not published in the interface. Check
|
|
|
|
|
locally. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
method_prototype
|
|
|
|
|
= lookup_method (CLASS_CLS_METHODS (implementation_context),
|
|
|
|
|
sel_name);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
tree iface;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if ((iface = lookup_interface (class_ident)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
method_prototype = lookup_class_method_static (iface, sel_name);
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!method_prototype)
|
|
|
|
|
{
|
|
|
|
|
warning ("cannot find class (factory) method.");
|
|
|
|
|
warning ("return type for `%s' defaults to id",
|
|
|
|
|
IDENTIFIER_POINTER (sel_name));
|
|
|
|
|
}
|
|
|
|
|
}
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
else if (IS_PROTOCOL_QUALIFIED_ID (rtype))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
/* An anonymous object that has been qualified with a protocol. */
|
|
|
|
|
|
|
|
|
|
tree protocol_list = TYPE_PROTOCOL_LIST (rtype);
|
|
|
|
|
|
|
|
|
|
method_prototype = lookup_method_in_protocol_list (protocol_list,
|
|
|
|
|
sel_name, 0);
|
|
|
|
|
|
|
|
|
|
if (!method_prototype)
|
|
|
|
|
{
|
|
|
|
|
hash hsh;
|
|
|
|
|
|
|
|
|
|
warning ("method `%s' not implemented by protocol.",
|
|
|
|
|
IDENTIFIER_POINTER (sel_name));
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Try and find the method signature in the global pools. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (!(hsh = hash_lookup (nst_method_hash_list, sel_name)))
|
|
|
|
|
hsh = hash_lookup (cls_method_hash_list, sel_name);
|
|
|
|
|
|
|
|
|
|
if (!(method_prototype = check_duplicates (hsh)))
|
|
|
|
|
warning ("return type defaults to id");
|
|
|
|
|
}
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
hash hsh;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* We think we have an instance...loophole: extern id Object; */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
hsh = hash_lookup (nst_method_hash_list, sel_name);
|
|
|
|
|
if (!hsh)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* For various loopholes, like sending messages to self in a
|
1996-07-04 00:07:53 +02:00
|
|
|
|
factory context. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
hsh = hash_lookup (cls_method_hash_list, sel_name);
|
|
|
|
|
|
|
|
|
|
method_prototype = check_duplicates (hsh);
|
|
|
|
|
if (!method_prototype)
|
|
|
|
|
{
|
|
|
|
|
warning ("cannot find method.");
|
|
|
|
|
warning ("return type for `%s' defaults to id",
|
|
|
|
|
IDENTIFIER_POINTER (sel_name));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Save the selector name for printing error messages. */
|
|
|
|
|
building_objc_message_expr = sel_name;
|
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
/* Build the parameters list for looking up the method.
|
|
|
|
|
These are the object itself and the selector. */
|
|
|
|
|
|
|
|
|
|
if (flag_typed_selectors)
|
|
|
|
|
selector = build_typed_selector_reference (sel_name, method_prototype);
|
|
|
|
|
else
|
|
|
|
|
selector = build_selector_reference (sel_name);
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
retval = build_objc_method_call (super, method_prototype,
|
|
|
|
|
receiver, self_object,
|
|
|
|
|
selector, method_params);
|
|
|
|
|
|
|
|
|
|
building_objc_message_expr = 0;
|
|
|
|
|
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Build a tree expression to send OBJECT the operation SELECTOR,
|
|
|
|
|
looking up the method on object LOOKUP_OBJECT (often same as OBJECT),
|
|
|
|
|
assuming the method has prototype METHOD_PROTOTYPE.
|
|
|
|
|
(That is an INSTANCE_METHOD_DECL or CLASS_METHOD_DECL.)
|
|
|
|
|
Use METHOD_PARAMS as list of args to pass to the method.
|
|
|
|
|
If SUPER_FLAG is nonzero, we look up the superclass's method. */
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
build_objc_method_call (super_flag, method_prototype, lookup_object, object,
|
|
|
|
|
selector, method_params)
|
|
|
|
|
int super_flag;
|
|
|
|
|
tree method_prototype, lookup_object, object, selector, method_params;
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree sender = (super_flag ? umsg_super_decl : umsg_decl);
|
|
|
|
|
tree rcv_p = (super_flag
|
|
|
|
|
? build_pointer_type (xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (TAG_SUPER)))
|
|
|
|
|
: id_type);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! method_prototype)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
method_params = tree_cons (NULL_TREE, lookup_object,
|
|
|
|
|
tree_cons (NULL_TREE, selector,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
method_params));
|
|
|
|
|
assemble_external (sender);
|
|
|
|
|
return build_function_call (sender, method_params);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* This is a real kludge, but it is used only for the Next.
|
|
|
|
|
Clobber the data type of SENDER temporarily to accept
|
|
|
|
|
all the arguments for this operation, and to return
|
|
|
|
|
whatever this operation returns. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree arglist = NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree retval;
|
|
|
|
|
|
|
|
|
|
/* Save the proper contents of SENDER's data type. */
|
|
|
|
|
tree savarg = TYPE_ARG_TYPES (TREE_TYPE (sender));
|
|
|
|
|
tree savret = TREE_TYPE (TREE_TYPE (sender));
|
|
|
|
|
|
|
|
|
|
/* Install this method's argument types. */
|
|
|
|
|
arglist = get_arg_type_list (method_prototype, METHOD_REF,
|
|
|
|
|
super_flag);
|
|
|
|
|
TYPE_ARG_TYPES (TREE_TYPE (sender)) = arglist;
|
|
|
|
|
|
|
|
|
|
/* Install this method's return type. */
|
|
|
|
|
TREE_TYPE (TREE_TYPE (sender))
|
|
|
|
|
= groktypename (TREE_TYPE (method_prototype));
|
|
|
|
|
|
|
|
|
|
/* Call SENDER with all the parameters. This will do type
|
|
|
|
|
checking using the arg types for this method. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
method_params = tree_cons (NULL_TREE, lookup_object,
|
|
|
|
|
tree_cons (NULL_TREE, selector,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
method_params));
|
|
|
|
|
assemble_external (sender);
|
|
|
|
|
retval = build_function_call (sender, method_params);
|
|
|
|
|
|
|
|
|
|
/* Restore SENDER's return/argument types. */
|
|
|
|
|
TYPE_ARG_TYPES (TREE_TYPE (sender)) = savarg;
|
|
|
|
|
TREE_TYPE (TREE_TYPE (sender)) = savret;
|
|
|
|
|
return retval;
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* This is the portable way.
|
|
|
|
|
First call the lookup function to get a pointer to the method,
|
|
|
|
|
then cast the pointer, then call it with the method arguments. */
|
|
|
|
|
tree method;
|
|
|
|
|
|
|
|
|
|
/* Avoid trouble since we may evaluate each of these twice. */
|
|
|
|
|
object = save_expr (object);
|
|
|
|
|
selector = save_expr (selector);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
lookup_object = build_c_cast (rcv_p, lookup_object);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1993-03-14 23:21:33 +01:00
|
|
|
|
assemble_external (sender);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
method
|
|
|
|
|
= build_function_call (sender,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree_cons (NULL_TREE, lookup_object,
|
|
|
|
|
tree_cons (NULL_TREE, selector,
|
|
|
|
|
NULL_TREE)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* If we have a method prototype, construct the data type this
|
|
|
|
|
method needs, and cast what we got from SENDER into a pointer
|
|
|
|
|
to that type. */
|
|
|
|
|
if (method_prototype)
|
|
|
|
|
{
|
|
|
|
|
tree arglist = get_arg_type_list (method_prototype, METHOD_REF,
|
|
|
|
|
super_flag);
|
|
|
|
|
tree valtype = groktypename (TREE_TYPE (method_prototype));
|
|
|
|
|
tree fake_function_type = build_function_type (valtype, arglist);
|
|
|
|
|
TREE_TYPE (method) = build_pointer_type (fake_function_type);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
TREE_TYPE (method)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
= build_pointer_type (build_function_type (ptr_type_node, NULL_TREE));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* Pass the object to the method. */
|
|
|
|
|
assemble_external (method);
|
|
|
|
|
return build_function_call (method,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree_cons (NULL_TREE, object,
|
|
|
|
|
tree_cons (NULL_TREE, selector,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
method_params)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
build_protocol_reference (p)
|
|
|
|
|
tree p;
|
|
|
|
|
{
|
|
|
|
|
tree decl, ident, ptype;
|
|
|
|
|
|
|
|
|
|
/* extern struct objc_protocol _OBJC_PROTOCOL_<mumble>; */
|
|
|
|
|
|
|
|
|
|
ident = synth_id_with_class_suffix ("_OBJC_PROTOCOL", p);
|
|
|
|
|
ptype
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
= groktypename (build_tree_list (build_tree_list (NULL_TREE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
objc_protocol_template),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
NULL_TREE));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (IDENTIFIER_GLOBAL_VALUE (ident))
|
|
|
|
|
decl = IDENTIFIER_GLOBAL_VALUE (ident); /* Set by pushdecl. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
decl = build_decl (VAR_DECL, ident, ptype);
|
|
|
|
|
DECL_EXTERNAL (decl) = 1;
|
|
|
|
|
TREE_PUBLIC (decl) = 1;
|
|
|
|
|
TREE_USED (decl) = 1;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
DECL_ARTIFICIAL (decl) = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
2001-01-11 00:06:30 +01:00
|
|
|
|
make_decl_rtl (decl, 0);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
pushdecl_top_level (decl);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
PROTOCOL_FORWARD_DECL (p) = decl;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
build_protocol_expr (protoname)
|
|
|
|
|
tree protoname;
|
|
|
|
|
{
|
|
|
|
|
tree expr;
|
objc-act.c (lang_init, [...]): Remove redundant code, assuming doing_objc_thang is true.
* objc/objc-act.c (lang_init, finish_file, maybe_objc_comptypes,
maybe_objc_check_decl, build_objc_string_object,
objc_declare_alias, objc_declare_class, build_message_expr,
build_protocol_expr, build_selector_expr, build_encode_expr,
get_class_ivars, start_class, start_protocol): Remove
redundant code, assuming doing_objc_thang is true.
From-SVN: r37866
2000-11-30 09:11:41 +01:00
|
|
|
|
tree p = lookup_protocol (protoname);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (!p)
|
|
|
|
|
{
|
|
|
|
|
error ("Cannot find protocol declaration for `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (protoname));
|
|
|
|
|
return error_mark_node;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (!PROTOCOL_FORWARD_DECL (p))
|
|
|
|
|
build_protocol_reference (p);
|
|
|
|
|
|
|
|
|
|
expr = build_unary_op (ADDR_EXPR, PROTOCOL_FORWARD_DECL (p), 0);
|
|
|
|
|
|
|
|
|
|
TREE_TYPE (expr) = protocol_type;
|
|
|
|
|
|
|
|
|
|
return expr;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree
|
|
|
|
|
build_selector_expr (selnamelist)
|
|
|
|
|
tree selnamelist;
|
|
|
|
|
{
|
|
|
|
|
tree selname;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Obtain the full selector name. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (TREE_CODE (selnamelist) == IDENTIFIER_NODE)
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* A unary selector. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
selname = selnamelist;
|
|
|
|
|
else if (TREE_CODE (selnamelist) == TREE_LIST)
|
|
|
|
|
selname = build_keyword_selector (selnamelist);
|
1999-04-14 22:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
abort ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1994-06-30 18:17:36 +02:00
|
|
|
|
if (flag_typed_selectors)
|
|
|
|
|
return build_typed_selector_reference (selname, 0);
|
|
|
|
|
else
|
|
|
|
|
return build_selector_reference (selname);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
build_encode_expr (type)
|
|
|
|
|
tree type;
|
|
|
|
|
{
|
1992-04-29 01:43:21 +02:00
|
|
|
|
tree result;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *string;
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_type (type, obstack_object_size (&util_obstack),
|
|
|
|
|
OBJC_ENCODE_INLINE_DEFS);
|
1992-12-19 10:04:47 +01:00
|
|
|
|
obstack_1grow (&util_obstack, 0); /* null terminate string */
|
1992-04-29 01:43:21 +02:00
|
|
|
|
string = obstack_finish (&util_obstack);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Synthesize a string that represents the encoded struct/union. */
|
1992-04-29 01:43:21 +02:00
|
|
|
|
result = my_build_string (strlen (string) + 1, string);
|
|
|
|
|
obstack_free (&util_obstack, util_firstobj);
|
|
|
|
|
return result;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
build_ivar_reference (id)
|
|
|
|
|
tree id;
|
|
|
|
|
{
|
|
|
|
|
if (TREE_CODE (method_context) == CLASS_METHOD_DECL)
|
1993-05-01 12:48:31 +02:00
|
|
|
|
{
|
|
|
|
|
/* Historically, a class method that produced objects (factory
|
|
|
|
|
method) would assign `self' to the instance that it
|
|
|
|
|
allocated. This would effectively turn the class method into
|
|
|
|
|
an instance method. Following this assignment, the instance
|
|
|
|
|
variables could be accessed. That practice, while safe,
|
|
|
|
|
violates the simple rule that a class method should not refer
|
|
|
|
|
to an instance variable. It's better to catch the cases
|
|
|
|
|
where this is done unknowingly than to support the above
|
|
|
|
|
paradigm. */
|
|
|
|
|
warning ("instance variable `%s' accessed in class method",
|
|
|
|
|
IDENTIFIER_POINTER (id));
|
|
|
|
|
TREE_TYPE (self_decl) = instance_type; /* cast */
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return build_component_ref (build_indirect_ref (self_decl, "->"), id);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#define HASH_ALLOC_LIST_SIZE 170
|
|
|
|
|
#define ATTR_ALLOC_LIST_SIZE 170
|
|
|
|
|
#define SIZEHASHTABLE 257
|
1993-04-24 17:14:44 +02:00
|
|
|
|
|
|
|
|
|
/* make positive */
|
|
|
|
|
#define HASHFUNCTION(key) ((HOST_WIDE_INT) key & 0x7fffffff)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
hash_init ()
|
|
|
|
|
{
|
|
|
|
|
nst_method_hash_list = (hash *)xmalloc (SIZEHASHTABLE * sizeof (hash));
|
|
|
|
|
cls_method_hash_list = (hash *)xmalloc (SIZEHASHTABLE * sizeof (hash));
|
|
|
|
|
|
|
|
|
|
if (!nst_method_hash_list || !cls_method_hash_list)
|
2001-03-09 04:27:41 +01:00
|
|
|
|
perror ("unable to allocate space in objc-act.c");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < SIZEHASHTABLE; i++)
|
|
|
|
|
{
|
|
|
|
|
nst_method_hash_list[i] = 0;
|
|
|
|
|
cls_method_hash_list[i] = 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* WARNING!!!! hash_enter is called with a method, and will peek
|
|
|
|
|
inside to find its selector! But hash_lookup is given a selector
|
|
|
|
|
directly, and looks for the selector that's inside the found
|
|
|
|
|
entry's key (method) for comparison. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
hash_enter (hashlist, method)
|
|
|
|
|
hash *hashlist;
|
|
|
|
|
tree method;
|
|
|
|
|
{
|
|
|
|
|
static hash hash_alloc_list = 0;
|
|
|
|
|
static int hash_alloc_index = 0;
|
|
|
|
|
hash obj;
|
|
|
|
|
int slot = HASHFUNCTION (METHOD_SEL_NAME (method)) % SIZEHASHTABLE;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! hash_alloc_list || hash_alloc_index >= HASH_ALLOC_LIST_SIZE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
hash_alloc_index = 0;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
hash_alloc_list = (hash) xmalloc (sizeof (struct hashed_entry)
|
|
|
|
|
* HASH_ALLOC_LIST_SIZE);
|
|
|
|
|
if (! hash_alloc_list)
|
2001-03-09 04:27:41 +01:00
|
|
|
|
perror ("unable to allocate in objc-act.c");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
obj = &hash_alloc_list[hash_alloc_index++];
|
|
|
|
|
obj->list = 0;
|
|
|
|
|
obj->next = hashlist[slot];
|
|
|
|
|
obj->key = method;
|
|
|
|
|
|
|
|
|
|
hashlist[slot] = obj; /* append to front */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static hash
|
|
|
|
|
hash_lookup (hashlist, sel_name)
|
|
|
|
|
hash *hashlist;
|
|
|
|
|
tree sel_name;
|
|
|
|
|
{
|
|
|
|
|
hash target;
|
|
|
|
|
|
|
|
|
|
target = hashlist[HASHFUNCTION (sel_name) % SIZEHASHTABLE];
|
|
|
|
|
|
|
|
|
|
while (target)
|
|
|
|
|
{
|
|
|
|
|
if (sel_name == METHOD_SEL_NAME (target->key))
|
|
|
|
|
return target;
|
|
|
|
|
|
|
|
|
|
target = target->next;
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
hash_add_attr (entry, value)
|
|
|
|
|
hash entry;
|
|
|
|
|
tree value;
|
|
|
|
|
{
|
|
|
|
|
static attr attr_alloc_list = 0;
|
|
|
|
|
static int attr_alloc_index = 0;
|
|
|
|
|
attr obj;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! attr_alloc_list || attr_alloc_index >= ATTR_ALLOC_LIST_SIZE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
attr_alloc_index = 0;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
attr_alloc_list = (attr) xmalloc (sizeof (struct hashed_attribute)
|
|
|
|
|
* ATTR_ALLOC_LIST_SIZE);
|
|
|
|
|
if (! attr_alloc_list)
|
2001-03-09 04:27:41 +01:00
|
|
|
|
perror ("unable to allocate in objc-act.c");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
obj = &attr_alloc_list[attr_alloc_index++];
|
|
|
|
|
obj->next = entry->list;
|
|
|
|
|
obj->value = value;
|
|
|
|
|
|
|
|
|
|
entry->list = obj; /* append to front */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
lookup_method (mchain, method)
|
|
|
|
|
tree mchain;
|
|
|
|
|
tree method;
|
|
|
|
|
{
|
|
|
|
|
tree key;
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (method) == IDENTIFIER_NODE)
|
|
|
|
|
key = method;
|
|
|
|
|
else
|
|
|
|
|
key = METHOD_SEL_NAME (method);
|
|
|
|
|
|
|
|
|
|
while (mchain)
|
|
|
|
|
{
|
|
|
|
|
if (METHOD_SEL_NAME (mchain) == key)
|
|
|
|
|
return mchain;
|
|
|
|
|
mchain = TREE_CHAIN (mchain);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
return NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
lookup_instance_method_static (interface, ident)
|
|
|
|
|
tree interface;
|
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
tree inter = interface;
|
|
|
|
|
tree chain = CLASS_NST_METHODS (inter);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree meth = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
do
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((meth = lookup_method (chain, ident)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return meth;
|
|
|
|
|
|
|
|
|
|
if (CLASS_CATEGORY_LIST (inter))
|
|
|
|
|
{
|
|
|
|
|
tree category = CLASS_CATEGORY_LIST (inter);
|
|
|
|
|
chain = CLASS_NST_METHODS (category);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
do
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((meth = lookup_method (chain, ident)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return meth;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* Check for instance methods in protocols in categories. */
|
|
|
|
|
if (CLASS_PROTOCOL_LIST (category))
|
|
|
|
|
{
|
|
|
|
|
if ((meth = (lookup_method_in_protocol_list
|
|
|
|
|
(CLASS_PROTOCOL_LIST (category), ident, 0))))
|
|
|
|
|
return meth;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ((category = CLASS_CATEGORY_LIST (category)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chain = CLASS_NST_METHODS (category);
|
|
|
|
|
}
|
|
|
|
|
while (category);
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (CLASS_PROTOCOL_LIST (inter))
|
|
|
|
|
{
|
|
|
|
|
if ((meth = (lookup_method_in_protocol_list
|
|
|
|
|
(CLASS_PROTOCOL_LIST (inter), ident, 0))))
|
|
|
|
|
return meth;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ((inter = lookup_interface (CLASS_SUPER_NAME (inter))))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chain = CLASS_NST_METHODS (inter);
|
|
|
|
|
}
|
|
|
|
|
while (inter);
|
|
|
|
|
|
|
|
|
|
return meth;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
lookup_class_method_static (interface, ident)
|
|
|
|
|
tree interface;
|
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
tree inter = interface;
|
|
|
|
|
tree chain = CLASS_CLS_METHODS (inter);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree meth = NULL_TREE;
|
|
|
|
|
tree root_inter = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
do
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((meth = lookup_method (chain, ident)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return meth;
|
|
|
|
|
|
|
|
|
|
if (CLASS_CATEGORY_LIST (inter))
|
|
|
|
|
{
|
|
|
|
|
tree category = CLASS_CATEGORY_LIST (inter);
|
|
|
|
|
chain = CLASS_CLS_METHODS (category);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
do
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((meth = lookup_method (chain, ident)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return meth;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* Check for class methods in protocols in categories. */
|
|
|
|
|
if (CLASS_PROTOCOL_LIST (category))
|
|
|
|
|
{
|
|
|
|
|
if ((meth = (lookup_method_in_protocol_list
|
|
|
|
|
(CLASS_PROTOCOL_LIST (category), ident, 1))))
|
|
|
|
|
return meth;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ((category = CLASS_CATEGORY_LIST (category)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chain = CLASS_CLS_METHODS (category);
|
|
|
|
|
}
|
|
|
|
|
while (category);
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Check for class methods in protocols. */
|
|
|
|
|
if (CLASS_PROTOCOL_LIST (inter))
|
|
|
|
|
{
|
|
|
|
|
if ((meth = (lookup_method_in_protocol_list
|
|
|
|
|
(CLASS_PROTOCOL_LIST (inter), ident, 1))))
|
|
|
|
|
return meth;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
root_inter = inter;
|
|
|
|
|
if ((inter = lookup_interface (CLASS_SUPER_NAME (inter))))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chain = CLASS_CLS_METHODS (inter);
|
|
|
|
|
}
|
|
|
|
|
while (inter);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Simulate wrap around. */
|
|
|
|
|
return lookup_instance_method_static (root_inter, ident);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
add_class_method (class, method)
|
|
|
|
|
tree class;
|
|
|
|
|
tree method;
|
|
|
|
|
{
|
|
|
|
|
tree mth;
|
|
|
|
|
hash hsh;
|
|
|
|
|
|
|
|
|
|
if (!(mth = lookup_method (CLASS_CLS_METHODS (class), method)))
|
|
|
|
|
{
|
|
|
|
|
/* put method on list in reverse order */
|
|
|
|
|
TREE_CHAIN (method) = CLASS_CLS_METHODS (class);
|
|
|
|
|
CLASS_CLS_METHODS (class) = method;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (class) == CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
error ("duplicate definition of class method `%s'.",
|
|
|
|
|
IDENTIFIER_POINTER (METHOD_SEL_NAME (mth)));
|
|
|
|
|
else
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Check types; if different, complain. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!comp_proto_with_proto (method, mth))
|
|
|
|
|
error ("duplicate declaration of class method `%s'.",
|
|
|
|
|
IDENTIFIER_POINTER (METHOD_SEL_NAME (mth)));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!(hsh = hash_lookup (cls_method_hash_list, METHOD_SEL_NAME (method))))
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Install on a global chain. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
hash_enter (cls_method_hash_list, method);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Check types; if different, add to a list. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!comp_proto_with_proto (method, hsh->key))
|
|
|
|
|
hash_add_attr (hsh, method);
|
|
|
|
|
}
|
|
|
|
|
return method;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
add_instance_method (class, method)
|
|
|
|
|
tree class;
|
|
|
|
|
tree method;
|
|
|
|
|
{
|
|
|
|
|
tree mth;
|
|
|
|
|
hash hsh;
|
|
|
|
|
|
|
|
|
|
if (!(mth = lookup_method (CLASS_NST_METHODS (class), method)))
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Put method on list in reverse order. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
TREE_CHAIN (method) = CLASS_NST_METHODS (class);
|
|
|
|
|
CLASS_NST_METHODS (class) = method;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (class) == CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
error ("duplicate definition of instance method `%s'.",
|
|
|
|
|
IDENTIFIER_POINTER (METHOD_SEL_NAME (mth)));
|
|
|
|
|
else
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Check types; if different, complain. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!comp_proto_with_proto (method, mth))
|
|
|
|
|
error ("duplicate declaration of instance method `%s'.",
|
|
|
|
|
IDENTIFIER_POINTER (METHOD_SEL_NAME (mth)));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!(hsh = hash_lookup (nst_method_hash_list, METHOD_SEL_NAME (method))))
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Install on a global chain. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
hash_enter (nst_method_hash_list, method);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Check types; if different, add to a list. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!comp_proto_with_proto (method, hsh->key))
|
|
|
|
|
hash_add_attr (hsh, method);
|
|
|
|
|
}
|
|
|
|
|
return method;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
add_class (class)
|
|
|
|
|
tree class;
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Put interfaces on list in reverse order. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
TREE_CHAIN (class) = interface_chain;
|
|
|
|
|
interface_chain = class;
|
|
|
|
|
return interface_chain;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
add_category (class, category)
|
|
|
|
|
tree class;
|
|
|
|
|
tree category;
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Put categories on list in reverse order. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree cat = CLASS_CATEGORY_LIST (class);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
while (cat)
|
|
|
|
|
{
|
|
|
|
|
if (CLASS_SUPER_NAME (cat) == CLASS_SUPER_NAME (category))
|
|
|
|
|
warning ("duplicate interface declaration for category `%s(%s)'",
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_NAME (class)),
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_SUPER_NAME (category)));
|
|
|
|
|
cat = CLASS_CATEGORY_LIST (cat);
|
|
|
|
|
}
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
CLASS_CATEGORY_LIST (category) = CLASS_CATEGORY_LIST (class);
|
|
|
|
|
CLASS_CATEGORY_LIST (class) = category;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Called after parsing each instance variable declaration. Necessary to
|
|
|
|
|
preserve typedefs and implement public/private...
|
|
|
|
|
|
|
|
|
|
PUBLIC is 1 for public, 0 for protected, and 2 for private. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree
|
|
|
|
|
add_instance_variable (class, public, declarator, declspecs, width)
|
|
|
|
|
tree class;
|
|
|
|
|
int public;
|
|
|
|
|
tree declarator;
|
|
|
|
|
tree declspecs;
|
|
|
|
|
tree width;
|
|
|
|
|
{
|
|
|
|
|
tree field_decl, raw_decl;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
raw_decl = build_tree_list (declspecs, declarator);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (CLASS_RAW_IVARS (class))
|
|
|
|
|
chainon (CLASS_RAW_IVARS (class), raw_decl);
|
|
|
|
|
else
|
|
|
|
|
CLASS_RAW_IVARS (class) = raw_decl;
|
|
|
|
|
|
|
|
|
|
field_decl = grokfield (input_filename, lineno,
|
|
|
|
|
declarator, declspecs, width);
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Overload the public attribute, it is not used for FIELD_DECLs. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
switch (public)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
TREE_PUBLIC (field_decl) = 0;
|
|
|
|
|
TREE_PRIVATE (field_decl) = 0;
|
|
|
|
|
TREE_PROTECTED (field_decl) = 1;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 1:
|
|
|
|
|
TREE_PUBLIC (field_decl) = 1;
|
|
|
|
|
TREE_PRIVATE (field_decl) = 0;
|
|
|
|
|
TREE_PROTECTED (field_decl) = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 2:
|
|
|
|
|
TREE_PUBLIC (field_decl) = 0;
|
|
|
|
|
TREE_PRIVATE (field_decl) = 1;
|
|
|
|
|
TREE_PROTECTED (field_decl) = 0;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (CLASS_IVARS (class))
|
|
|
|
|
chainon (CLASS_IVARS (class), field_decl);
|
|
|
|
|
else
|
|
|
|
|
CLASS_IVARS (class) = field_decl;
|
|
|
|
|
|
|
|
|
|
return class;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
is_ivar (decl_chain, ident)
|
|
|
|
|
tree decl_chain;
|
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
for ( ; decl_chain; decl_chain = TREE_CHAIN (decl_chain))
|
|
|
|
|
if (DECL_NAME (decl_chain) == ident)
|
|
|
|
|
return decl_chain;
|
|
|
|
|
return NULL_TREE;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* True if the ivar is private and we are not in its implementation. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
is_private (decl)
|
|
|
|
|
tree decl;
|
|
|
|
|
{
|
|
|
|
|
if (TREE_PRIVATE (decl)
|
|
|
|
|
&& ! is_ivar (CLASS_IVARS (implementation_template), DECL_NAME (decl)))
|
|
|
|
|
{
|
|
|
|
|
error ("instance variable `%s' is declared private",
|
|
|
|
|
IDENTIFIER_POINTER (DECL_NAME (decl)));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* We have an instance variable reference;, check to see if it is public. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
is_public (expr, identifier)
|
|
|
|
|
tree expr;
|
|
|
|
|
tree identifier;
|
|
|
|
|
{
|
|
|
|
|
tree basetype = TREE_TYPE (expr);
|
|
|
|
|
enum tree_code code = TREE_CODE (basetype);
|
|
|
|
|
tree decl;
|
|
|
|
|
|
|
|
|
|
if (code == RECORD_TYPE)
|
|
|
|
|
{
|
|
|
|
|
if (TREE_STATIC_TEMPLATE (basetype))
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (!lookup_interface (TYPE_NAME (basetype)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
error ("Cannot find interface declaration for `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (TYPE_NAME (basetype)));
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((decl = is_ivar (TYPE_FIELDS (basetype), identifier)))
|
|
|
|
|
{
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (TREE_PUBLIC (decl))
|
|
|
|
|
return 1;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Important difference between the Stepstone translator:
|
1993-04-10 01:12:37 +02:00
|
|
|
|
all instance variables should be public within the context
|
|
|
|
|
of the implementation. */
|
|
|
|
|
if (implementation_context
|
|
|
|
|
&& (((TREE_CODE (implementation_context)
|
|
|
|
|
== CLASS_IMPLEMENTATION_TYPE)
|
|
|
|
|
|| (TREE_CODE (implementation_context)
|
|
|
|
|
== CATEGORY_IMPLEMENTATION_TYPE))
|
|
|
|
|
&& (CLASS_NAME (implementation_context)
|
|
|
|
|
== TYPE_NAME (basetype))))
|
|
|
|
|
return ! is_private (decl);
|
|
|
|
|
|
|
|
|
|
error ("instance variable `%s' is declared %s",
|
|
|
|
|
IDENTIFIER_POINTER (identifier),
|
|
|
|
|
TREE_PRIVATE (decl) ? "private" : "protected");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (implementation_context && (basetype == objc_object_reference))
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_TYPE (expr) = uprivate_record;
|
|
|
|
|
warning ("static access to object of type `id'");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Implement @defs (<classname>) within struct bodies. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
get_class_ivars (interface)
|
|
|
|
|
tree interface;
|
|
|
|
|
{
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Make sure we copy the leaf ivars in case @defs is used in a local
|
|
|
|
|
context. Otherwise finish_struct will overwrite the layout info
|
|
|
|
|
using temporary storage. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return build_ivar_chain (interface, 1);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Make sure all entries in CHAIN are also in LIST. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static int
|
1992-01-18 00:15:38 +01:00
|
|
|
|
check_methods (chain, list, mtype)
|
|
|
|
|
tree chain;
|
|
|
|
|
tree list;
|
|
|
|
|
int mtype;
|
|
|
|
|
{
|
|
|
|
|
int first = 1;
|
|
|
|
|
|
|
|
|
|
while (chain)
|
|
|
|
|
{
|
|
|
|
|
if (!lookup_method (list, chain))
|
|
|
|
|
{
|
|
|
|
|
if (first)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (TREE_CODE (implementation_context)
|
|
|
|
|
== CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
warning ("incomplete implementation of class `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_NAME (implementation_context)));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
else if (TREE_CODE (implementation_context)
|
|
|
|
|
== CATEGORY_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
warning ("incomplete implementation of category `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_SUPER_NAME (implementation_context)));
|
|
|
|
|
first = 0;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
warning ("method definition for `%c%s' not found",
|
|
|
|
|
mtype, IDENTIFIER_POINTER (METHOD_SEL_NAME (chain)));
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return first;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
conforms_to_protocol (class, protocol)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree class;
|
|
|
|
|
tree protocol;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
while (protocol)
|
|
|
|
|
{
|
|
|
|
|
tree p = CLASS_PROTOCOL_LIST (class);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
while (p && TREE_VALUE (p) != TREE_VALUE (protocol))
|
|
|
|
|
p = TREE_CHAIN (p);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (!p)
|
|
|
|
|
{
|
|
|
|
|
tree super = (CLASS_SUPER_NAME (class)
|
|
|
|
|
? lookup_interface (CLASS_SUPER_NAME (class))
|
|
|
|
|
: NULL_TREE);
|
|
|
|
|
int tmp = super ? conforms_to_protocol (super, protocol) : 0;
|
|
|
|
|
if (!tmp)
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
protocol = TREE_CHAIN (protocol);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-13 14:57:23 +02:00
|
|
|
|
/* Make sure all methods in CHAIN are accessible as MTYPE methods in
|
1996-07-04 00:07:53 +02:00
|
|
|
|
CONTEXT. This is one of two mechanisms to check protocol integrity. */
|
1993-04-13 14:57:23 +02:00
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
check_methods_accessible (chain, context, mtype)
|
|
|
|
|
tree chain;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree context;
|
1993-04-13 14:57:23 +02:00
|
|
|
|
int mtype;
|
|
|
|
|
{
|
|
|
|
|
int first = 1;
|
|
|
|
|
tree list;
|
1993-10-29 02:33:07 +01:00
|
|
|
|
tree base_context = context;
|
1993-04-13 14:57:23 +02:00
|
|
|
|
|
|
|
|
|
while (chain)
|
|
|
|
|
{
|
1993-10-29 02:33:07 +01:00
|
|
|
|
context = base_context;
|
1993-04-13 14:57:23 +02:00
|
|
|
|
while (context)
|
|
|
|
|
{
|
|
|
|
|
if (mtype == '+')
|
|
|
|
|
list = CLASS_CLS_METHODS (context);
|
|
|
|
|
else
|
|
|
|
|
list = CLASS_NST_METHODS (context);
|
|
|
|
|
|
|
|
|
|
if (lookup_method (list, chain))
|
|
|
|
|
break;
|
|
|
|
|
|
1993-05-06 17:59:25 +02:00
|
|
|
|
else if (TREE_CODE (context) == CLASS_IMPLEMENTATION_TYPE
|
|
|
|
|
|| TREE_CODE (context) == CLASS_INTERFACE_TYPE)
|
1993-04-13 14:57:23 +02:00
|
|
|
|
context = (CLASS_SUPER_NAME (context)
|
|
|
|
|
? lookup_interface (CLASS_SUPER_NAME (context))
|
|
|
|
|
: NULL_TREE);
|
|
|
|
|
|
1993-05-06 17:59:25 +02:00
|
|
|
|
else if (TREE_CODE (context) == CATEGORY_IMPLEMENTATION_TYPE
|
|
|
|
|
|| TREE_CODE (context) == CATEGORY_INTERFACE_TYPE)
|
1993-04-13 14:57:23 +02:00
|
|
|
|
context = (CLASS_NAME (context)
|
|
|
|
|
? lookup_interface (CLASS_NAME (context))
|
|
|
|
|
: NULL_TREE);
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (context == NULL_TREE)
|
|
|
|
|
{
|
|
|
|
|
if (first)
|
|
|
|
|
{
|
|
|
|
|
if (TREE_CODE (implementation_context)
|
|
|
|
|
== CLASS_IMPLEMENTATION_TYPE)
|
|
|
|
|
warning ("incomplete implementation of class `%s'",
|
|
|
|
|
IDENTIFIER_POINTER
|
|
|
|
|
(CLASS_NAME (implementation_context)));
|
|
|
|
|
else if (TREE_CODE (implementation_context)
|
|
|
|
|
== CATEGORY_IMPLEMENTATION_TYPE)
|
|
|
|
|
warning ("incomplete implementation of category `%s'",
|
|
|
|
|
IDENTIFIER_POINTER
|
|
|
|
|
(CLASS_SUPER_NAME (implementation_context)));
|
|
|
|
|
first = 0;
|
|
|
|
|
}
|
|
|
|
|
warning ("method definition for `%c%s' not found",
|
|
|
|
|
mtype, IDENTIFIER_POINTER (METHOD_SEL_NAME (chain)));
|
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
chain = TREE_CHAIN (chain); /* next method... */
|
1993-04-13 14:57:23 +02:00
|
|
|
|
}
|
|
|
|
|
return first;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static void
|
|
|
|
|
check_protocols (proto_list, type, name)
|
|
|
|
|
tree proto_list;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *type;
|
|
|
|
|
const char *name;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
for ( ; proto_list; proto_list = TREE_CHAIN (proto_list))
|
|
|
|
|
{
|
|
|
|
|
tree p = TREE_VALUE (proto_list);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (p) == PROTOCOL_INTERFACE_TYPE)
|
|
|
|
|
{
|
|
|
|
|
int f1, f2;
|
1993-04-13 14:57:23 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Ensure that all protocols have bodies. */
|
1993-04-13 14:57:23 +02:00
|
|
|
|
if (flag_warn_protocol) {
|
|
|
|
|
f1 = check_methods (PROTOCOL_CLS_METHODS (p),
|
|
|
|
|
CLASS_CLS_METHODS (implementation_context),
|
|
|
|
|
'+');
|
|
|
|
|
f2 = check_methods (PROTOCOL_NST_METHODS (p),
|
|
|
|
|
CLASS_NST_METHODS (implementation_context),
|
|
|
|
|
'-');
|
|
|
|
|
} else {
|
|
|
|
|
f1 = check_methods_accessible (PROTOCOL_CLS_METHODS (p),
|
|
|
|
|
implementation_context,
|
|
|
|
|
'+');
|
|
|
|
|
f2 = check_methods_accessible (PROTOCOL_NST_METHODS (p),
|
|
|
|
|
implementation_context,
|
|
|
|
|
'-');
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (!f1 || !f2)
|
|
|
|
|
warning ("%s `%s' does not fully implement the `%s' protocol",
|
|
|
|
|
type, name, IDENTIFIER_POINTER (PROTOCOL_NAME (p)));
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
else
|
1998-02-28 08:06:53 +01:00
|
|
|
|
{
|
|
|
|
|
; /* An identifier if we could not find a protocol. */
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Check protocols recursively. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (PROTOCOL_LIST (p))
|
|
|
|
|
{
|
|
|
|
|
tree super_class
|
|
|
|
|
= lookup_interface (CLASS_SUPER_NAME (implementation_template));
|
|
|
|
|
if (! conforms_to_protocol (super_class, PROTOCOL_LIST (p)))
|
|
|
|
|
check_protocols (PROTOCOL_LIST (p), type, name);
|
|
|
|
|
}
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1992-10-17 02:37:08 +01:00
|
|
|
|
/* Make sure that the class CLASS_NAME is defined
|
|
|
|
|
CODE says which kind of thing CLASS_NAME ought to be.
|
1993-04-10 01:12:37 +02:00
|
|
|
|
It can be CLASS_INTERFACE_TYPE, CLASS_IMPLEMENTATION_TYPE,
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
CATEGORY_INTERFACE_TYPE, or CATEGORY_IMPLEMENTATION_TYPE. */
|
1992-10-17 02:37:08 +01:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree
|
1993-04-10 01:12:37 +02:00
|
|
|
|
start_class (code, class_name, super_name, protocol_list)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
enum tree_code code;
|
|
|
|
|
tree class_name;
|
|
|
|
|
tree super_name;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree protocol_list;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree class, decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2001-03-28 04:49:19 +02:00
|
|
|
|
if (objc_implementation_context)
|
|
|
|
|
{
|
|
|
|
|
warning ("`@end' missing in implementation context");
|
|
|
|
|
finish_class (objc_implementation_context);
|
|
|
|
|
objc_ivar_chain = NULL_TREE;
|
|
|
|
|
objc_implementation_context = NULL_TREE;
|
|
|
|
|
}
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
class = make_node (code);
|
1993-04-13 01:52:10 +02:00
|
|
|
|
TYPE_BINFO (class) = make_tree_vec (5);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
CLASS_NAME (class) = class_name;
|
|
|
|
|
CLASS_SUPER_NAME (class) = super_name;
|
|
|
|
|
CLASS_CLS_METHODS (class) = NULL_TREE;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! is_class_name (class_name) && (decl = lookup_name (class_name)))
|
|
|
|
|
{
|
|
|
|
|
error ("`%s' redeclared as different kind of symbol",
|
|
|
|
|
IDENTIFIER_POINTER (class_name));
|
|
|
|
|
error_with_decl (decl, "previous declaration of `%s'");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (code == CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
static tree implemented_classes = 0;
|
2001-02-16 10:15:19 +01:00
|
|
|
|
tree chain;
|
|
|
|
|
|
|
|
|
|
if (!implemented_classes)
|
|
|
|
|
ggc_add_tree_root (&implemented_classes, 1);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (chain = implemented_classes; chain; chain = TREE_CHAIN (chain))
|
|
|
|
|
if (TREE_VALUE (chain) == class_name)
|
|
|
|
|
{
|
|
|
|
|
error ("reimplementation of class `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (class_name));
|
|
|
|
|
return error_mark_node;
|
|
|
|
|
}
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
implemented_classes = tree_cons (NULL_TREE, class_name,
|
|
|
|
|
implemented_classes);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Pre-build the following entities - for speed/convenience. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!self_id)
|
1995-05-12 21:54:00 +02:00
|
|
|
|
self_id = get_identifier ("self");
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (!ucmd_id)
|
|
|
|
|
ucmd_id = get_identifier ("_cmd");
|
1995-05-12 21:54:00 +02:00
|
|
|
|
if (!unused_list)
|
|
|
|
|
unused_list
|
|
|
|
|
= build_tree_list (get_identifier ("__unused__"), NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!objc_super_template)
|
|
|
|
|
objc_super_template = build_super_template ();
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Reset for multiple classes per file. */
|
|
|
|
|
method_slot = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
implementation_context = class;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Lookup the interface for this implementation. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (!(implementation_template = lookup_interface (class_name)))
|
|
|
|
|
{
|
|
|
|
|
warning ("Cannot find interface declaration for `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (class_name));
|
|
|
|
|
add_class (implementation_template = implementation_context);
|
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* If a super class has been specified in the implementation,
|
|
|
|
|
insure it conforms to the one specified in the interface. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (super_name
|
|
|
|
|
&& (super_name != CLASS_SUPER_NAME (implementation_template)))
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree previous_name = CLASS_SUPER_NAME (implementation_template);
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *name =
|
|
|
|
|
previous_name ? IDENTIFIER_POINTER (previous_name) : "";
|
1992-01-18 00:15:38 +01:00
|
|
|
|
error ("conflicting super class name `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (super_name));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
error ("previous declaration of `%s'", name);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-13 14:57:23 +02:00
|
|
|
|
else if (! super_name)
|
|
|
|
|
{
|
|
|
|
|
CLASS_SUPER_NAME (implementation_context)
|
|
|
|
|
= CLASS_SUPER_NAME (implementation_template);
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (code == CLASS_INTERFACE_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
if (lookup_interface (class_name))
|
|
|
|
|
warning ("duplicate interface declaration for class `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (class_name));
|
|
|
|
|
else
|
|
|
|
|
add_class (class);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (protocol_list)
|
|
|
|
|
CLASS_PROTOCOL_LIST (class)
|
|
|
|
|
= lookup_and_install_protocols (protocol_list);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (code == CATEGORY_INTERFACE_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree class_category_is_assoc_with;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* For a category, class_name is really the name of the class that
|
|
|
|
|
the following set of methods will be associated with. We must
|
|
|
|
|
find the interface so that can derive the objects template. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (!(class_category_is_assoc_with = lookup_interface (class_name)))
|
|
|
|
|
{
|
|
|
|
|
error ("Cannot find interface declaration for `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (class_name));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
exit (FATAL_EXIT_CODE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
add_category (class_category_is_assoc_with, class);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (protocol_list)
|
|
|
|
|
CLASS_PROTOCOL_LIST (class)
|
|
|
|
|
= lookup_and_install_protocols (protocol_list);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (code == CATEGORY_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Pre-build the following entities for speed/convenience. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!self_id)
|
|
|
|
|
self_id = get_identifier ("self");
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (!ucmd_id)
|
|
|
|
|
ucmd_id = get_identifier ("_cmd");
|
1995-05-12 21:54:00 +02:00
|
|
|
|
if (!unused_list)
|
|
|
|
|
unused_list
|
|
|
|
|
= build_tree_list (get_identifier ("__unused__"), NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!objc_super_template)
|
|
|
|
|
objc_super_template = build_super_template ();
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Reset for multiple classes per file. */
|
|
|
|
|
method_slot = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
implementation_context = class;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* For a category, class_name is really the name of the class that
|
|
|
|
|
the following set of methods will be associated with. We must
|
1996-07-04 00:07:53 +02:00
|
|
|
|
find the interface so that can derive the objects template. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (!(implementation_template = lookup_interface (class_name)))
|
|
|
|
|
{
|
|
|
|
|
error ("Cannot find interface declaration for `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (class_name));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
exit (FATAL_EXIT_CODE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return class;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
continue_class (class)
|
|
|
|
|
tree class;
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (class) == CLASS_IMPLEMENTATION_TYPE
|
|
|
|
|
|| TREE_CODE (class) == CATEGORY_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
struct imp_entry *imp_entry;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree ivar_context;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Check consistency of the instance variables. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (CLASS_IVARS (class))
|
|
|
|
|
check_ivars (implementation_template, class);
|
|
|
|
|
|
|
|
|
|
/* code generation */
|
|
|
|
|
|
|
|
|
|
ivar_context = build_private_template (implementation_template);
|
|
|
|
|
|
|
|
|
|
if (!objc_class_template)
|
|
|
|
|
build_class_template ();
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (!(imp_entry
|
|
|
|
|
= (struct imp_entry *) xmalloc (sizeof (struct imp_entry))))
|
2001-03-09 04:27:41 +01:00
|
|
|
|
perror ("unable to allocate in objc-act.c");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
imp_entry->next = imp_list;
|
|
|
|
|
imp_entry->imp_context = class;
|
|
|
|
|
imp_entry->imp_template = implementation_template;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
synth_forward_declarations ();
|
1993-04-10 01:12:37 +02:00
|
|
|
|
imp_entry->class_decl = UOBJC_CLASS_decl;
|
|
|
|
|
imp_entry->meta_decl = UOBJC_METACLASS_decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Append to front and increment count. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
imp_list = imp_entry;
|
|
|
|
|
if (TREE_CODE (class) == CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
imp_count++;
|
|
|
|
|
else
|
|
|
|
|
cat_count++;
|
|
|
|
|
|
|
|
|
|
return ivar_context;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (TREE_CODE (class) == CLASS_INTERFACE_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree record = xref_tag (RECORD_TYPE, CLASS_NAME (class));
|
|
|
|
|
|
|
|
|
|
if (!TYPE_FIELDS (record))
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_struct (record, build_ivar_chain (class, 0), NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
CLASS_STATIC_TEMPLATE (class) = record;
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Mark this record as a class template for static typing. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
TREE_STATIC_TEMPLATE (record) = 1;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
return NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
return error_mark_node;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* This is called once we see the "@end" in an interface/implementation. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
void
|
|
|
|
|
finish_class (class)
|
|
|
|
|
tree class;
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (class) == CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* All code generation is done in finish_objc. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (implementation_template != implementation_context)
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Ensure that all method listed in the interface contain bodies. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
check_methods (CLASS_CLS_METHODS (implementation_template),
|
|
|
|
|
CLASS_CLS_METHODS (implementation_context), '+');
|
|
|
|
|
check_methods (CLASS_NST_METHODS (implementation_template),
|
|
|
|
|
CLASS_NST_METHODS (implementation_context), '-');
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (CLASS_PROTOCOL_LIST (implementation_template))
|
|
|
|
|
check_protocols (CLASS_PROTOCOL_LIST (implementation_template),
|
|
|
|
|
"class",
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_NAME (implementation_context)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (TREE_CODE (class) == CATEGORY_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree category = CLASS_CATEGORY_LIST (implementation_template);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Find the category interface from the class it is associated with. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
while (category)
|
|
|
|
|
{
|
|
|
|
|
if (CLASS_SUPER_NAME (class) == CLASS_SUPER_NAME (category))
|
|
|
|
|
break;
|
|
|
|
|
category = CLASS_CATEGORY_LIST (category);
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (category)
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Ensure all method listed in the interface contain bodies. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
check_methods (CLASS_CLS_METHODS (category),
|
|
|
|
|
CLASS_CLS_METHODS (implementation_context), '+');
|
|
|
|
|
check_methods (CLASS_NST_METHODS (category),
|
|
|
|
|
CLASS_NST_METHODS (implementation_context), '-');
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
if (CLASS_PROTOCOL_LIST (category))
|
|
|
|
|
check_protocols (CLASS_PROTOCOL_LIST (category),
|
|
|
|
|
"category",
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_SUPER_NAME (implementation_context)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (TREE_CODE (class) == CLASS_INTERFACE_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree decl_specs;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *class_name = IDENTIFIER_POINTER (CLASS_NAME (class));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
char *string = (char *) alloca (strlen (class_name) + 3);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* extern struct objc_object *_<my_name>; */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
sprintf (string, "_%s", class_name);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, ridpointers[(int) RID_EXTERN]);
|
|
|
|
|
decl_specs = tree_cons (NULL_TREE, objc_object_reference, decl_specs);
|
|
|
|
|
define_decl (build1 (INDIRECT_REF, NULL_TREE, get_identifier (string)),
|
1992-04-23 04:20:18 +02:00
|
|
|
|
decl_specs);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
add_protocol (protocol)
|
|
|
|
|
tree protocol;
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Put protocol on list in reverse order. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_CHAIN (protocol) = protocol_chain;
|
|
|
|
|
protocol_chain = protocol;
|
|
|
|
|
return protocol_chain;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
lookup_protocol (ident)
|
|
|
|
|
tree ident;
|
|
|
|
|
{
|
|
|
|
|
tree chain;
|
|
|
|
|
|
|
|
|
|
for (chain = protocol_chain; chain; chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
if (ident == PROTOCOL_NAME (chain))
|
|
|
|
|
return chain;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
return NULL_TREE;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tree
|
|
|
|
|
start_protocol (code, name, list)
|
|
|
|
|
enum tree_code code;
|
|
|
|
|
tree name;
|
|
|
|
|
tree list;
|
|
|
|
|
{
|
|
|
|
|
tree protocol;
|
|
|
|
|
|
|
|
|
|
/* This is as good a place as any. Need to invoke push_tag_toplevel. */
|
|
|
|
|
if (!objc_protocol_template)
|
|
|
|
|
objc_protocol_template = build_protocol_template ();
|
|
|
|
|
|
|
|
|
|
protocol = make_node (code);
|
1993-04-13 01:52:10 +02:00
|
|
|
|
TYPE_BINFO (protocol) = make_tree_vec (2);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
PROTOCOL_NAME (protocol) = name;
|
|
|
|
|
PROTOCOL_LIST (protocol) = list;
|
|
|
|
|
|
|
|
|
|
lookup_and_install_protocols (list);
|
|
|
|
|
|
|
|
|
|
if (lookup_protocol (name))
|
|
|
|
|
warning ("duplicate declaration for protocol `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (name));
|
|
|
|
|
else
|
|
|
|
|
add_protocol (protocol);
|
|
|
|
|
|
|
|
|
|
PROTOCOL_FORWARD_DECL (protocol) = NULL_TREE;
|
|
|
|
|
|
|
|
|
|
return protocol;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
finish_protocol (protocol)
|
Warning fixes:
* Makefile.in (c-lang.o): Depend on c-tree.h, c-lex.h and toplev.h.
(c-lex.o): Depend on output.h.
(c-common.o): Likewise.
(stmt.o): Likewise.
(calls.o): Likewise.
(integrate.o): Depend on toplev.h.
(regclass.o): Depend on output.h.
(final.o): Depend on reload.h.
* c-common.c: Include output.h.
(check_format_info): Remove unused variable `integral_format'.
* c-decl.c (print_lang_decl): Mark parameters `file', `node' and
`indent' with ATTRIBUTE_UNUSED.
(print_lang_type): Likewise.
(maybe_build_cleanup): Likewise for parameter `decl'.
(copy_lang_decl): Likewise for parameter `node'.
* c-lang.c: Include c-tree.h, c-lex.h and toplev.h.
(lang_print_xnode): Mark parameters `file', `node' and `indent'
with ATTRIBUTE_UNUSED.
(lookup_interface): Likewise for parameter `arg'.
(is_class_name): Likewise.
(maybe_objc_check_decl): Likewise for parameter `decl'.
(maybe_objc_comptypes): Likewise for parameters `lhs', `rhs' and
`reflexive'.
(maybe_objc_method_name): Likewise for parameter `decl'.
(build_objc_string): Likewise for parameters `len' and `str'.
* c-lex.c: Include output.h.
* c-lex.h (position_after_white_space): Correct typo in prototype.
* c-tree.h (finish_file, c_expand_start_cond, c_expand_start_else,
c_expand_end_cond, init_iterators): Add prototypes.
* caller-save.c (set_reg_live): Mark parameters `reg' and `setter'
with ATTRIBUTE_UNUSED.
* calls.c: Include output.h.
* cccp.c (pipe_closed): Mark parameter `signo' with
ATTRIBUTE_UNUSED.
* combine.c: Move inclusion of expr.h to after insn-config.h.
* iris6.h (ASM_IDENTIFY_GCC, ASM_IDENTIFY_LANGUAGE): Don't define
as empty, rather define as ((void)0).
* sparc.c (sparc_check_64): Add braces around ambiguous `else'.
Add parentheses around assignment used as truth value.
* cplus-dem.c (squangle_mop_up): Change return type to void.
(internal_cplus_demangle): Remove unused parameter `options'.
All callers changed.
(cplus_demangle_opname): Remove function wide variable `int i' and
replace with `size_t i' at each location where it is used.
(cplus_demangle_opname): change type of `i' from int to size_t.
* cppexp.c (right_shift): Mark parameter `pfile' with
ATTRIBUTE_UNUSED.
* cpphash.c (cpp_lookup): Likewise.
(cpp_hash_cleanup): Likewise.
* cpplib.c (parse_name): Add a prototype and make it static.
(null_underflow): Mark parameter `pfile' with ATTRIBUTE_UNUSED.
(null_cleanup): Likewise for parameters `pbuf' and `pfile'.
(macro_cleanup): Likewise for parameter `pfile'.
(file_cleanup): Likewise.
* cpplib.h (cpp_reader_init, cpp_options_init, cpp_start_read,
cpp_read_check_assertion, skip_rest_of_line): Add prototypes.
* crtstuff.c (force_to_data, __CTOR_LIST__, force_to_data,
__DTOR_END__, __FRAME_END__): Mark with ATTRIBUTE_UNUSED.
* cse.c (cse_check_loop_start): Mark parameter `set' with
ATTRIBUTE_UNUSED.
* dbxout.c (flag_minimal_debug, have_used_extensions,
source_label_number): Move inside macro wrapper check against
defined (DBX_DEBUGGING_INFO) || defined (XCOFF_DEBUGGING_INFO).
* dwarf2out.c (gen_entry_point_die): Hide prototype and definition.
* except.h (doing_eh): Provide prototype.
* expr.c: Move inclusion of expr.h to after insn-config.h.
* final.c: Include reload.h.
(shorten_branches): Cast the first argument of bzero to char *.
* fix-header.c (cpp_print_containing_files): Mark parameter
`pfile' with ATTRIBUTE_UNUSED.
(cpp_fatal): Likewise.
* flow.c (find_basic_blocks_1): Cast the first argument of bzero
to char *.
* genattrtab.c (make_length_attrs): Change the type of variable
`i' from int to size_t.
(zero_fn): Mark parameter `exp' with ATTRIBUTE_UNUSED.
(one_fn): Likewise.
* genextract.c (main): When generating insn-extract.c, mark
variable `junk' with ATTRIBUTE_UNUSED.
* gengenrtl.c (gencode): When generating genrtl.c, cast the first
argument of bzero to char*.
* integrate.c: Include toplev.h.
* libgcc2.c: Wrap `struct exception_table' and
`find_exception_handler' in macro DWARF2_UNWIND_INFO.
* objc/Make-lang.in (objc-act.o): Depend on toplev.h.
* objc/objc-act.c: Include toplev.h.
(lang_print_xnode): Mark parameters `file', `node' and `indent'
with ATTRIBUTE_UNUSED.
(finish_protocol): Likewise for parameter `protocol'.
* output.h (declare_weak): Add prototype.
(decode_reg_name): Don't wrap with TREE_CODE macro.
(assemble_alias): Add prototype.
* regclass.c: Include output.h.
* reload.h (reloads_conflict): Add prototype.
* rtl.h (print_rtl_single, mark_elimiation, reg_class_subset_p,
output_func_start_profiler): Add prototypes.
* rtlanal.c (reg_set_p_1): Mark parameters `x' and `pat' with
ATTRIBUTE_UNUSED.
* scan-decls.c: Include scan.h.
* scan.h (recognized_function, recognized_extern): Add prototypes.
* stmt.c: Include output.h.
* toplev.c (error_for_asm, warning_for_asm): Remove prototypes.
(output_lang_identify): Hide prototype and definition.
(float_signal): Mark parameter `signo' with ATTRIBUTE_UNUSED.
(pipe_closed): Likewise.
* toplev.h (count_error, strip_off_ending, error_for_asm,
warning_for_asm): Add prototypes.
From-SVN: r19712
1998-05-13 14:40:39 +02:00
|
|
|
|
tree protocol ATTRIBUTE_UNUSED;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
}
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* "Encode" a data type into a string, which grows in util_obstack.
|
1992-04-29 01:43:21 +02:00
|
|
|
|
??? What is the FORMAT? Someone please document this! */
|
1992-04-23 04:20:18 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static void
|
|
|
|
|
encode_type_qualifiers (declspecs)
|
|
|
|
|
tree declspecs;
|
|
|
|
|
{
|
|
|
|
|
tree spec;
|
|
|
|
|
|
|
|
|
|
for (spec = declspecs; spec; spec = TREE_CHAIN (spec))
|
|
|
|
|
{
|
1993-07-05 23:16:10 +02:00
|
|
|
|
if (ridpointers[(int) RID_CONST] == TREE_VALUE (spec))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'r');
|
1993-07-05 23:16:10 +02:00
|
|
|
|
else if (ridpointers[(int) RID_IN] == TREE_VALUE (spec))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'n');
|
1993-07-05 23:16:10 +02:00
|
|
|
|
else if (ridpointers[(int) RID_INOUT] == TREE_VALUE (spec))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'N');
|
1993-07-05 23:16:10 +02:00
|
|
|
|
else if (ridpointers[(int) RID_OUT] == TREE_VALUE (spec))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'o');
|
1993-07-05 23:16:10 +02:00
|
|
|
|
else if (ridpointers[(int) RID_BYCOPY] == TREE_VALUE (spec))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'O');
|
1998-10-08 13:28:08 +02:00
|
|
|
|
else if (ridpointers[(int) RID_BYREF] == TREE_VALUE (spec))
|
|
|
|
|
obstack_1grow (&util_obstack, 'R');
|
1993-07-05 23:16:10 +02:00
|
|
|
|
else if (ridpointers[(int) RID_ONEWAY] == TREE_VALUE (spec))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'V');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1992-04-23 04:20:18 +02:00
|
|
|
|
/* Encode a pointer type. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_pointer (type, curtype, format)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int curtype;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int format;
|
|
|
|
|
{
|
|
|
|
|
tree pointer_to = TREE_TYPE (type);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (pointer_to) == RECORD_TYPE)
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_NAME (pointer_to)
|
|
|
|
|
&& TREE_CODE (TYPE_NAME (pointer_to)) == IDENTIFIER_NODE)
|
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *name = IDENTIFIER_POINTER (TYPE_NAME (pointer_to));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (strcmp (name, TAG_OBJECT) == 0) /* '@' */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1992-04-23 04:20:18 +02:00
|
|
|
|
obstack_1grow (&util_obstack, '@');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (TREE_STATIC_TEMPLATE (pointer_to))
|
|
|
|
|
{
|
|
|
|
|
if (generating_instance_variables)
|
|
|
|
|
{
|
|
|
|
|
obstack_1grow (&util_obstack, '@');
|
|
|
|
|
obstack_1grow (&util_obstack, '"');
|
|
|
|
|
obstack_grow (&util_obstack, name, strlen (name));
|
|
|
|
|
obstack_1grow (&util_obstack, '"');
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
obstack_1grow (&util_obstack, '@');
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (strcmp (name, TAG_CLASS) == 0) /* '#' */
|
|
|
|
|
{
|
1992-04-23 04:20:18 +02:00
|
|
|
|
obstack_1grow (&util_obstack, '#');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
else if (strcmp (name, TAG_SELECTOR) == 0) /* ':' */
|
|
|
|
|
{
|
1992-04-23 04:20:18 +02:00
|
|
|
|
obstack_1grow (&util_obstack, ':');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (TREE_CODE (pointer_to) == INTEGER_TYPE
|
|
|
|
|
&& TYPE_MODE (pointer_to) == QImode)
|
|
|
|
|
{
|
1992-04-23 04:20:18 +02:00
|
|
|
|
obstack_1grow (&util_obstack, '*');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* We have a type that does not get special treatment. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* NeXT extension */
|
1992-04-23 04:20:18 +02:00
|
|
|
|
obstack_1grow (&util_obstack, '^');
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_type (pointer_to, curtype, format);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_array (type, curtype, format)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int curtype;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int format;
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree an_int_cst = TYPE_SIZE (type);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree array_of = TREE_TYPE (type);
|
1992-04-23 04:20:18 +02:00
|
|
|
|
char buffer[40];
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
/* An incomplete array is treated like a pointer. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (an_int_cst == NULL)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_pointer (type, curtype, format);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1998-06-22 07:23:33 +02:00
|
|
|
|
sprintf (buffer, "[%ld",
|
|
|
|
|
(long) (TREE_INT_CST_LOW (an_int_cst)
|
|
|
|
|
/ TREE_INT_CST_LOW (TYPE_SIZE (array_of))));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-04-23 04:20:18 +02:00
|
|
|
|
obstack_grow (&util_obstack, buffer, strlen (buffer));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_type (array_of, curtype, format);
|
1992-04-23 04:20:18 +02:00
|
|
|
|
obstack_1grow (&util_obstack, ']');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
1997-02-02 14:24:57 +01:00
|
|
|
|
encode_aggregate_within (type, curtype, format, left, right)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int curtype;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int format;
|
1998-04-06 03:05:12 +02:00
|
|
|
|
int left;
|
|
|
|
|
int right;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1997-02-02 14:24:57 +01:00
|
|
|
|
if (obstack_object_size (&util_obstack) > 0
|
|
|
|
|
&& *(obstack_next_free (&util_obstack) - 1) == '^')
|
|
|
|
|
{
|
|
|
|
|
tree name = TYPE_NAME (type);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1997-02-02 14:24:57 +01:00
|
|
|
|
/* 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
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1997-02-02 14:24:57 +01:00
|
|
|
|
tree name = TYPE_NAME (type);
|
|
|
|
|
tree fields = TYPE_FIELDS (type);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1997-02-02 14:24:57 +01:00
|
|
|
|
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);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1997-02-02 14:24:57 +01:00
|
|
|
|
obstack_1grow (&util_obstack, '"');
|
|
|
|
|
if (fname && TREE_CODE (fname) == IDENTIFIER_NODE)
|
|
|
|
|
{
|
|
|
|
|
obstack_grow (&util_obstack,
|
|
|
|
|
IDENTIFIER_POINTER (fname),
|
|
|
|
|
strlen (IDENTIFIER_POINTER (fname)));
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1997-02-02 14:24:57 +01:00
|
|
|
|
obstack_1grow (&util_obstack, '"');
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1997-02-02 14:24:57 +01:00
|
|
|
|
encode_field_decl (fields, curtype, format);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1997-02-02 14:24:57 +01:00
|
|
|
|
obstack_1grow (&util_obstack, right);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1997-02-02 14:24:57 +01:00
|
|
|
|
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;
|
|
|
|
|
int format;
|
|
|
|
|
{
|
|
|
|
|
enum tree_code code = TREE_CODE (type);
|
|
|
|
|
|
|
|
|
|
switch (code)
|
|
|
|
|
{
|
|
|
|
|
case RECORD_TYPE:
|
|
|
|
|
{
|
|
|
|
|
encode_aggregate_within(type, curtype, format, '{', '}');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
case UNION_TYPE:
|
|
|
|
|
{
|
1997-02-02 14:24:57 +01:00
|
|
|
|
encode_aggregate_within(type, curtype, format, '(', ')');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
break;
|
|
|
|
|
}
|
1992-04-23 04:20:18 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
case ENUMERAL_TYPE:
|
1992-04-23 04:20:18 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'i');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
break;
|
1997-12-22 10:31:41 +01:00
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
break;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Support bitfields. The current version of Objective-C does not support
|
|
|
|
|
them. The string will consist of one or more "b:n"'s where n is an
|
1993-04-10 01:12:37 +02:00
|
|
|
|
integer describing the width of the bitfield. Currently, classes in
|
|
|
|
|
the kit implement a method "-(char *)describeBitfieldStruct:" that
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
simulates this. If they do not implement this method, the archiver
|
1993-04-10 01:12:37 +02:00
|
|
|
|
assumes the bitfield is 16 bits wide (padded if necessary) and packed
|
|
|
|
|
according to the GNU compiler. After looking at the "kit", it appears
|
|
|
|
|
that all classes currently rely on this default behavior, rather than
|
|
|
|
|
hand generating this string (which is tedious). */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
encode_bitfield (width)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int width;
|
|
|
|
|
{
|
1992-04-29 01:43:21 +02:00
|
|
|
|
char buffer[40];
|
|
|
|
|
sprintf (buffer, "b%d", width);
|
|
|
|
|
obstack_grow (&util_obstack, buffer, strlen (buffer));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* FORMAT will be OBJC_ENCODE_INLINE_DEFS or OBJC_ENCODE_DONT_INLINE_DEFS. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_type (type, curtype, format)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree type;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int curtype;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int format;
|
|
|
|
|
{
|
|
|
|
|
enum tree_code code = TREE_CODE (type);
|
|
|
|
|
|
|
|
|
|
if (code == INTEGER_TYPE)
|
|
|
|
|
{
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
if (integer_zerop (TYPE_MIN_VALUE (type)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Unsigned integer types. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1999-02-22 10:02:25 +01:00
|
|
|
|
if (TYPE_MODE (type) == QImode)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'C');
|
1999-02-22 10:02:25 +01:00
|
|
|
|
else if (TYPE_MODE (type) == HImode)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'S');
|
1999-02-22 10:02:25 +01:00
|
|
|
|
else if (TYPE_MODE (type) == SImode)
|
|
|
|
|
{
|
|
|
|
|
if (type == long_unsigned_type_node)
|
|
|
|
|
obstack_1grow (&util_obstack, 'L');
|
|
|
|
|
else
|
|
|
|
|
obstack_1grow (&util_obstack, 'I');
|
|
|
|
|
}
|
|
|
|
|
else if (TYPE_MODE (type) == DImode)
|
1993-06-07 00:55:40 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'Q');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Signed integer types. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1999-02-22 10:02:25 +01:00
|
|
|
|
if (TYPE_MODE (type) == QImode)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'c');
|
1999-02-22 10:02:25 +01:00
|
|
|
|
else if (TYPE_MODE (type) == HImode)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 's');
|
1999-02-22 10:02:25 +01:00
|
|
|
|
else if (TYPE_MODE (type) == SImode)
|
|
|
|
|
{
|
|
|
|
|
if (type == long_integer_type_node)
|
|
|
|
|
obstack_1grow (&util_obstack, 'l');
|
|
|
|
|
else
|
|
|
|
|
obstack_1grow (&util_obstack, 'i');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
else if (TYPE_MODE (type) == DImode)
|
1993-06-07 00:55:40 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'q');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (code == REAL_TYPE)
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Floating point types. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (TYPE_MODE (type) == SFmode)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'f');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (TYPE_MODE (type) == DFmode
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|| TYPE_MODE (type) == TFmode)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'd');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
else if (code == VOID_TYPE)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 'v');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
else if (code == ARRAY_TYPE)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_array (type, curtype, format);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
else if (code == POINTER_TYPE)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_pointer (type, curtype, format);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
else if (code == RECORD_TYPE || code == UNION_TYPE || code == ENUMERAL_TYPE)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_aggregate (type, curtype, format);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
else if (code == FUNCTION_TYPE) /* '?' */
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_1grow (&util_obstack, '?');
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1998-09-03 01:48:01 +02:00
|
|
|
|
static void
|
|
|
|
|
encode_complete_bitfield (int position, tree type, int size)
|
|
|
|
|
{
|
|
|
|
|
enum tree_code code = TREE_CODE (type);
|
|
|
|
|
char buffer[40];
|
|
|
|
|
char charType = '?';
|
|
|
|
|
|
|
|
|
|
if (code == INTEGER_TYPE)
|
|
|
|
|
{
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
if (integer_zerop (TYPE_MIN_VALUE (type)))
|
1998-09-03 01:48:01 +02:00
|
|
|
|
{
|
|
|
|
|
/* Unsigned integer types. */
|
|
|
|
|
|
1999-02-22 10:02:25 +01:00
|
|
|
|
if (TYPE_MODE (type) == QImode)
|
1998-09-03 01:48:01 +02:00
|
|
|
|
charType = 'C';
|
1999-02-22 10:02:25 +01:00
|
|
|
|
else if (TYPE_MODE (type) == HImode)
|
1998-09-03 01:48:01 +02:00
|
|
|
|
charType = 'S';
|
1999-02-22 10:02:25 +01:00
|
|
|
|
else if (TYPE_MODE (type) == SImode)
|
|
|
|
|
{
|
|
|
|
|
if (type == long_unsigned_type_node)
|
|
|
|
|
charType = 'L';
|
|
|
|
|
else
|
|
|
|
|
charType = 'I';
|
|
|
|
|
}
|
|
|
|
|
else if (TYPE_MODE (type) == DImode)
|
1998-09-03 01:48:01 +02:00
|
|
|
|
charType = 'Q';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
/* Signed integer types. */
|
|
|
|
|
{
|
1999-02-22 10:02:25 +01:00
|
|
|
|
if (TYPE_MODE (type) == QImode)
|
1998-09-03 01:48:01 +02:00
|
|
|
|
charType = 'c';
|
1999-02-22 10:02:25 +01:00
|
|
|
|
else if (TYPE_MODE (type) == HImode)
|
1998-09-03 01:48:01 +02:00
|
|
|
|
charType = 's';
|
1999-02-22 10:02:25 +01:00
|
|
|
|
else if (TYPE_MODE (type) == SImode)
|
|
|
|
|
{
|
|
|
|
|
if (type == long_integer_type_node)
|
|
|
|
|
charType = 'l';
|
|
|
|
|
else
|
|
|
|
|
charType = 'i';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
else if (TYPE_MODE (type) == DImode)
|
1998-09-03 01:48:01 +02:00
|
|
|
|
charType = 'q';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
sprintf (buffer, "b%d%c%d", position, charType, size);
|
|
|
|
|
obstack_grow (&util_obstack, buffer, strlen (buffer));
|
|
|
|
|
}
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_field_decl (field_decl, curtype, format)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree field_decl;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int curtype;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int format;
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree type;
|
|
|
|
|
|
1998-09-03 01:48:01 +02:00
|
|
|
|
type = TREE_TYPE (field_decl);
|
|
|
|
|
|
|
|
|
|
/* If this field is obviously a bitfield, or is a bitfield that has been
|
1993-04-10 01:12:37 +02:00
|
|
|
|
clobbered to look like a ordinary integer mode, go ahead and generate
|
1996-07-04 00:07:53 +02:00
|
|
|
|
the bitfield typing information. */
|
1998-09-03 01:48:01 +02:00
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
if (DECL_BIT_FIELD (field_decl))
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
encode_bitfield (tree_low_cst (DECL_SIZE (field_decl), 1));
|
1998-09-03 01:48:01 +02:00
|
|
|
|
else
|
|
|
|
|
encode_type (TREE_TYPE (field_decl), curtype, format);
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
1998-09-03 01:48:01 +02:00
|
|
|
|
{
|
* Eliminate DECL_FIELD_SIZE.
* builtins.c (built_in_class_names, built_in_names): New variables.
* c-decl.c (finish_struct): Set specified size in DECL_SIZE.
* expr.c (expand_expr, case COMPONENT_REF): Get field size from
DECL_SIZE, not DECL_FIELD_SIZE.
* print-tree.c (print_node): Remove code that prints extra blank
lines in some cases.
Properly handle inline and builtin function cases.
* stor-layout.c (layout_decl): Get specified size from DEC_SIZE.
* tree.h (built_in_class_named, built_in_names): New declarations.
(union tree_decl): Rename internal unions to u1 and u2 and change
some of their components.
Add new field built_in_class.
(DECL_ALIGN, DECL_INCOMING_RTL, DECL_SAVED_INSNS, DECL_FRAME_SIZE):
Reflect above changes.
(DECL_FUNCTION_CODE, DECL_BUILT_IN_CLASS): Likewise.
(DECL_SET_FUNCTION_CODE, DECL_FIELD_SIZE): Deleted.
* objc/objc-act.c (objc_copy_list): Use DECL_SIZE, not DECL_FIELD_SIZE.
(encode_field_decl): Likewise; also remove obsolete test for bitfield.
* ch/ch-tree.h (DECL_ACTION_NESTING_LEVEL): Use new tree union name.
* ch/decl.c (finish_struct): Don't clear DECL_FIELD_SIZE.
* ch/typeck.c (make_chill_struct_type): Likewise.
(apply_decl_field_layout): General cleanup.
Set DECL_SIZE instead of DECL_FIELD_SIZE.
* cp/class.c (build_vtbl_or_vbase_field, check_methods): Don't clear
DECL_FIELD_SIZE.
(check_bitfield_decl, check_field_decls): Set DECL_SIZE, not
DECL_FIELD_SIZE.
* cp/rtti.c (expand_class_desc): Likewise.
* cp/cp-tree.h (DECL_INIT_PRIORITY): Use underlying union name.
(THUNK_VCALL_OFFSET): Likewise.
(THUNK_DELTA): Reflect changes in ../tree.h.
* java/java-tree.h (LABEL_PC): Relect name changes in ../tree.h.
(DECL_BIT_INDEX): Use underlying representation.
* java/parse.h (DECL_INHERITED_SOURCE_LINE): Likewise.
From-SVN: r32249
2000-02-29 03:34:48 +01:00
|
|
|
|
if (DECL_BIT_FIELD (field_decl))
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
encode_complete_bitfield (int_bit_position (field_decl),
|
* Eliminate DECL_FIELD_SIZE.
* builtins.c (built_in_class_names, built_in_names): New variables.
* c-decl.c (finish_struct): Set specified size in DECL_SIZE.
* expr.c (expand_expr, case COMPONENT_REF): Get field size from
DECL_SIZE, not DECL_FIELD_SIZE.
* print-tree.c (print_node): Remove code that prints extra blank
lines in some cases.
Properly handle inline and builtin function cases.
* stor-layout.c (layout_decl): Get specified size from DEC_SIZE.
* tree.h (built_in_class_named, built_in_names): New declarations.
(union tree_decl): Rename internal unions to u1 and u2 and change
some of their components.
Add new field built_in_class.
(DECL_ALIGN, DECL_INCOMING_RTL, DECL_SAVED_INSNS, DECL_FRAME_SIZE):
Reflect above changes.
(DECL_FUNCTION_CODE, DECL_BUILT_IN_CLASS): Likewise.
(DECL_SET_FUNCTION_CODE, DECL_FIELD_SIZE): Deleted.
* objc/objc-act.c (objc_copy_list): Use DECL_SIZE, not DECL_FIELD_SIZE.
(encode_field_decl): Likewise; also remove obsolete test for bitfield.
* ch/ch-tree.h (DECL_ACTION_NESTING_LEVEL): Use new tree union name.
* ch/decl.c (finish_struct): Don't clear DECL_FIELD_SIZE.
* ch/typeck.c (make_chill_struct_type): Likewise.
(apply_decl_field_layout): General cleanup.
Set DECL_SIZE instead of DECL_FIELD_SIZE.
* cp/class.c (build_vtbl_or_vbase_field, check_methods): Don't clear
DECL_FIELD_SIZE.
(check_bitfield_decl, check_field_decls): Set DECL_SIZE, not
DECL_FIELD_SIZE.
* cp/rtti.c (expand_class_desc): Likewise.
* cp/cp-tree.h (DECL_INIT_PRIORITY): Use underlying union name.
(THUNK_VCALL_OFFSET): Likewise.
(THUNK_DELTA): Reflect changes in ../tree.h.
* java/java-tree.h (LABEL_PC): Relect name changes in ../tree.h.
(DECL_BIT_INDEX): Use underlying representation.
* java/parse.h (DECL_INHERITED_SOURCE_LINE): Likewise.
From-SVN: r32249
2000-02-29 03:34:48 +01:00
|
|
|
|
DECL_BIT_FIELD_TYPE (field_decl),
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
tree_low_cst (DECL_SIZE (field_decl), 1));
|
1998-09-03 01:48:01 +02:00
|
|
|
|
else
|
|
|
|
|
encode_type (TREE_TYPE (field_decl), curtype, format);
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
expr_last (complex_expr)
|
|
|
|
|
tree complex_expr;
|
|
|
|
|
{
|
|
|
|
|
tree next;
|
|
|
|
|
|
|
|
|
|
if (complex_expr)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
while ((next = TREE_OPERAND (complex_expr, 0)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
complex_expr = next;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
return complex_expr;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Transform a method definition into a function definition as follows:
|
|
|
|
|
- synthesize the first two arguments, "self" and "_cmd". */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
start_method_def (method)
|
|
|
|
|
tree method;
|
|
|
|
|
{
|
|
|
|
|
tree decl_specs;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Required to implement _msgSuper. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
method_context = method;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
UOBJC_SUPER_decl = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Must be called BEFORE start_function. */
|
|
|
|
|
pushlevel (0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Generate prototype declarations for arguments..."new-style". */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (TREE_CODE (method_context) == INSTANCE_METHOD_DECL)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, uprivate_record);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Really a `struct objc_class *'. However, we allow people to
|
|
|
|
|
assign to self, which changes its type midstream. */
|
|
|
|
|
decl_specs = build_tree_list (NULL_TREE, objc_object_reference);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1995-05-12 21:54:00 +02:00
|
|
|
|
push_parm_decl (build_tree_list
|
|
|
|
|
(build_tree_list (decl_specs,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, self_id)),
|
1995-05-14 17:38:31 +02:00
|
|
|
|
build_tree_list (unused_list, NULL_TREE)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = build_tree_list (NULL_TREE,
|
1992-01-18 00:15:38 +01:00
|
|
|
|
xref_tag (RECORD_TYPE,
|
|
|
|
|
get_identifier (TAG_SELECTOR)));
|
1995-05-12 21:54:00 +02:00
|
|
|
|
push_parm_decl (build_tree_list
|
|
|
|
|
(build_tree_list (decl_specs,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
build1 (INDIRECT_REF, NULL_TREE, ucmd_id)),
|
1995-05-12 21:54:00 +02:00
|
|
|
|
build_tree_list (unused_list, NULL_TREE)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Generate argument declarations if a keyword_decl. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (METHOD_SEL_ARGS (method))
|
|
|
|
|
{
|
|
|
|
|
tree arglist = METHOD_SEL_ARGS (method);
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
tree arg_spec = TREE_PURPOSE (TREE_TYPE (arglist));
|
|
|
|
|
tree arg_decl = TREE_VALUE (TREE_TYPE (arglist));
|
|
|
|
|
|
|
|
|
|
if (arg_decl)
|
|
|
|
|
{
|
|
|
|
|
tree last_expr = expr_last (arg_decl);
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Unite the abstract decl with its name. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
TREE_OPERAND (last_expr, 0) = KEYWORD_ARG_NAME (arglist);
|
1995-05-12 21:54:00 +02:00
|
|
|
|
push_parm_decl (build_tree_list
|
|
|
|
|
(build_tree_list (arg_spec, arg_decl),
|
|
|
|
|
build_tree_list (NULL_TREE, NULL_TREE)));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Unhook: restore the abstract declarator. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
TREE_OPERAND (last_expr, 0) = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
1995-05-12 21:54:00 +02:00
|
|
|
|
push_parm_decl (build_tree_list
|
|
|
|
|
(build_tree_list (arg_spec,
|
|
|
|
|
KEYWORD_ARG_NAME (arglist)),
|
|
|
|
|
build_tree_list (NULL_TREE, NULL_TREE)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
arglist = TREE_CHAIN (arglist);
|
|
|
|
|
}
|
|
|
|
|
while (arglist);
|
|
|
|
|
}
|
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
if (METHOD_ADD_ARGS (method) != NULL_TREE
|
|
|
|
|
&& METHOD_ADD_ARGS (method) != objc_ellipsis_node)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have a variable length selector - in "prototype" format. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree akey = TREE_PURPOSE (METHOD_ADD_ARGS (method));
|
|
|
|
|
while (akey)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* This must be done prior to calling pushdecl. pushdecl is
|
|
|
|
|
going to change our chain on us. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree nextkey = TREE_CHAIN (akey);
|
|
|
|
|
pushdecl (akey);
|
|
|
|
|
akey = nextkey;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
warn_with_method (message, mtype, method)
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *message;
|
1994-09-27 23:31:04 +01:00
|
|
|
|
int mtype;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree method;
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (count_error (1) == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
report_error_function (DECL_SOURCE_FILE (method));
|
|
|
|
|
|
2001-03-20 23:01:49 +01:00
|
|
|
|
/* Add a readable method name to the warning. */
|
|
|
|
|
warning_with_file_and_line (DECL_SOURCE_FILE (method),
|
|
|
|
|
DECL_SOURCE_LINE (method),
|
2001-03-28 04:49:19 +02:00
|
|
|
|
"%s `%c%s'",
|
|
|
|
|
message, mtype,
|
|
|
|
|
gen_method_decl (method, errbuf));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Return 1 if METHOD is consistent with PROTO. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
comp_method_with_proto (method, proto)
|
|
|
|
|
tree method, proto;
|
|
|
|
|
{
|
|
|
|
|
static tree function_type = 0;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Create a function_type node once. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (!function_type)
|
2000-06-05 18:59:43 +02:00
|
|
|
|
{
|
|
|
|
|
function_type = make_node (FUNCTION_TYPE);
|
|
|
|
|
ggc_add_tree_root (&function_type, 1);
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Install argument types - normally set by build_function_type. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
TYPE_ARG_TYPES (function_type) = get_arg_type_list (proto, METHOD_DEF, 0);
|
|
|
|
|
|
|
|
|
|
/* install return type */
|
|
|
|
|
TREE_TYPE (function_type) = groktypename (TREE_TYPE (proto));
|
|
|
|
|
|
|
|
|
|
return comptypes (TREE_TYPE (METHOD_DEFINITION (method)), function_type);
|
|
|
|
|
}
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Return 1 if PROTO1 is consistent with PROTO2. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static int
|
2000-06-05 18:59:43 +02:00
|
|
|
|
comp_proto_with_proto (proto0, proto1)
|
|
|
|
|
tree proto0, proto1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
2000-06-05 18:59:43 +02:00
|
|
|
|
static tree function_type[2];
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Create a couple function_type node's once. */
|
2000-06-05 18:59:43 +02:00
|
|
|
|
if (!function_type[0])
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
2000-06-05 18:59:43 +02:00
|
|
|
|
function_type[0] = make_node (FUNCTION_TYPE);
|
|
|
|
|
function_type[1] = make_node (FUNCTION_TYPE);
|
|
|
|
|
ggc_add_tree_root (function_type, 2);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Install argument types; normally set by build_function_type. */
|
2000-06-05 18:59:43 +02:00
|
|
|
|
TYPE_ARG_TYPES (function_type[0]) = get_arg_type_list (proto0, METHOD_REF, 0);
|
|
|
|
|
TYPE_ARG_TYPES (function_type[1]) = get_arg_type_list (proto1, METHOD_REF, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Install return type. */
|
2000-06-05 18:59:43 +02:00
|
|
|
|
TREE_TYPE (function_type[0]) = groktypename (TREE_TYPE (proto0));
|
|
|
|
|
TREE_TYPE (function_type[1]) = groktypename (TREE_TYPE (proto1));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-06-05 18:59:43 +02:00
|
|
|
|
return comptypes (function_type[0], function_type[1]);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* - Generate an identifier for the function. the format is "_n_cls",
|
1993-04-10 01:12:37 +02:00
|
|
|
|
where 1 <= n <= nMethods, and cls is the name the implementation we
|
|
|
|
|
are processing.
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
- Install the return type from the method declaration.
|
|
|
|
|
- If we have a prototype, check for type consistency. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
really_start_method (method, parmlist)
|
|
|
|
|
tree method, parmlist;
|
|
|
|
|
{
|
|
|
|
|
tree sc_spec, ret_spec, ret_decl, decl_specs;
|
|
|
|
|
tree method_decl, method_id;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *sel_name, *class_name, *cat_name;
|
|
|
|
|
char *buf;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Synth the storage class & assemble the return type. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = tree_cons (NULL_TREE, ridpointers[(int) RID_STATIC], NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
ret_spec = TREE_PURPOSE (TREE_TYPE (method));
|
|
|
|
|
decl_specs = chainon (sc_spec, ret_spec);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
sel_name = IDENTIFIER_POINTER (METHOD_SEL_NAME (method));
|
|
|
|
|
class_name = IDENTIFIER_POINTER (CLASS_NAME (implementation_context));
|
|
|
|
|
cat_name = ((TREE_CODE (implementation_context)
|
|
|
|
|
== CLASS_IMPLEMENTATION_TYPE)
|
|
|
|
|
? NULL
|
|
|
|
|
: IDENTIFIER_POINTER (CLASS_SUPER_NAME (implementation_context)));
|
|
|
|
|
method_slot++;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Make sure this is big enough for any plausible method label. */
|
|
|
|
|
buf = (char *) alloca (50 + strlen (sel_name) + strlen (class_name)
|
|
|
|
|
+ (cat_name ? strlen (cat_name) : 0));
|
|
|
|
|
|
|
|
|
|
OBJC_GEN_METHOD_LABEL (buf, TREE_CODE (method) == INSTANCE_METHOD_DECL,
|
|
|
|
|
class_name, cat_name, sel_name, method_slot);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
method_id = get_identifier (buf);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
method_decl = build_nt (CALL_EXPR, method_id, parmlist, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Check the declarator portion of the return type for the method. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((ret_decl = TREE_VALUE (TREE_TYPE (method))))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Unite the complex decl (specified in the abstract decl) with the
|
1993-04-10 01:12:37 +02:00
|
|
|
|
function decl just synthesized..(int *), (int (*)()), (int (*)[]). */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree save_expr = expr_last (ret_decl);
|
|
|
|
|
|
|
|
|
|
TREE_OPERAND (save_expr, 0) = method_decl;
|
|
|
|
|
method_decl = ret_decl;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Fool the parser into thinking it is starting a function. */
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
start_function (decl_specs, method_decl, NULL_TREE, NULL_TREE);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Unhook: this has the effect of restoring the abstract declarator. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
TREE_OPERAND (save_expr, 0) = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
TREE_VALUE (TREE_TYPE (method)) = method_decl;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Fool the parser into thinking it is starting a function. */
|
c-common.c, [...]: Remove all references to obstack functions obsoleted by GC...
* c-common.c, c-decl.c, c-lang.c, c-lex.c, c-parse.in, c-pragma.c,
c-typeck.c, objc/objc-act.c: Remove all references to obstack
functions obsoleted by GC, such as push_obstacks_nochange,
end_temporary_allocation, savealloc, saveable_tree_cons, etc.
and code which existed only to decide whether or not to call
them. Remove now-unused NESTED argument from start_function;
all callers changed. Do not change behavior based on ggc_p.
The use of the ixp_obstack in c-iterate.c and the util_obstack
in objc/objc-act.c remain; these are not obsoleted by garbage
collection.
* c-tree.h: Update prototype for start_function.
* c-parse.y, c-parse.c, objc/objc-parse.c, objc/objc-parse.y: Rebuild.
From-SVN: r31611
2000-01-25 18:13:14 +01:00
|
|
|
|
start_function (decl_specs, method_decl, NULL_TREE, NULL_TREE);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Unhook: this has the effect of restoring the abstract declarator. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
TREE_VALUE (TREE_TYPE (method)) = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
METHOD_DEFINITION (method) = current_function_decl;
|
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Check consistency...start_function, pushdecl, duplicate_decls. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (implementation_template != implementation_context)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree proto;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (TREE_CODE (method) == INSTANCE_METHOD_DECL)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
proto = lookup_instance_method_static (implementation_template,
|
|
|
|
|
METHOD_SEL_NAME (method));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
1993-04-10 01:12:37 +02:00
|
|
|
|
proto = lookup_class_method_static (implementation_template,
|
|
|
|
|
METHOD_SEL_NAME (method));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (proto && ! comp_method_with_proto (method, proto))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
char type = (TREE_CODE (method) == INSTANCE_METHOD_DECL ? '-' : '+');
|
|
|
|
|
|
|
|
|
|
warn_with_method ("conflicting types for", type, method);
|
|
|
|
|
warn_with_method ("previous declaration of", type, proto);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* The following routine is always called...this "architecture" is to
|
|
|
|
|
accommodate "old-style" variable length selectors.
|
|
|
|
|
|
|
|
|
|
- a:a b:b // prototype ; id c; id d; // old-style. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
void
|
|
|
|
|
continue_method_def ()
|
|
|
|
|
{
|
|
|
|
|
tree parmlist;
|
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
if (METHOD_ADD_ARGS (method_context) == objc_ellipsis_node)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* We have a `, ...' immediately following the selector. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
parmlist = get_parm_info (0);
|
|
|
|
|
else
|
|
|
|
|
parmlist = get_parm_info (1); /* place a `void_at_end' */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Set self_decl from the first argument...this global is used by
|
|
|
|
|
build_ivar_reference calling build_indirect_ref. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
self_decl = TREE_PURPOSE (parmlist);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
poplevel (0, 0, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
really_start_method (method_context, parmlist);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
store_parm_decls ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* Called by the parser, from the `pushlevel' production. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
void
|
|
|
|
|
add_objc_decls ()
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (!UOBJC_SUPER_decl)
|
|
|
|
|
{
|
|
|
|
|
UOBJC_SUPER_decl = start_decl (get_identifier (UTAG_SUPER),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
build_tree_list (NULL_TREE,
|
1993-04-10 01:12:37 +02:00
|
|
|
|
objc_super_template),
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
0, NULL_TREE, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (UOBJC_SUPER_decl, NULL_TREE, NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* This prevents `unused variable' warnings when compiling with -Wall. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
TREE_USED (UOBJC_SUPER_decl) = 1;
|
|
|
|
|
DECL_ARTIFICIAL (UOBJC_SUPER_decl) = 1;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* _n_Method (id self, SEL sel, ...)
|
|
|
|
|
{
|
|
|
|
|
struct objc_super _S;
|
|
|
|
|
_msgSuper ((_S.self = self, _S.class = _cls, &_S), ...);
|
|
|
|
|
} */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree
|
|
|
|
|
get_super_receiver ()
|
|
|
|
|
{
|
|
|
|
|
if (method_context)
|
|
|
|
|
{
|
|
|
|
|
tree super_expr, super_expr_list;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Set receiver to self. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
super_expr = build_component_ref (UOBJC_SUPER_decl, self_id);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
super_expr = build_modify_expr (super_expr, NOP_EXPR, self_decl);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
super_expr_list = build_tree_list (NULL_TREE, super_expr);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Set class to begin searching. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
super_expr = build_component_ref (UOBJC_SUPER_decl,
|
|
|
|
|
get_identifier ("class"));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (implementation_context) == CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* [_cls, __cls]Super are "pre-built" in
|
|
|
|
|
synth_forward_declarations. */
|
|
|
|
|
|
|
|
|
|
super_expr = build_modify_expr (super_expr, NOP_EXPR,
|
|
|
|
|
((TREE_CODE (method_context)
|
|
|
|
|
== INSTANCE_METHOD_DECL)
|
|
|
|
|
? ucls_super_ref
|
|
|
|
|
: uucls_super_ref));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have a category. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree super_name = CLASS_SUPER_NAME (implementation_template);
|
|
|
|
|
tree super_class;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Barf if super used in a category of Object. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (!super_name)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
error ("no super class declared in interface for `%s'",
|
1992-01-18 00:15:38 +01:00
|
|
|
|
IDENTIFIER_POINTER (CLASS_NAME (implementation_template)));
|
|
|
|
|
return error_mark_node;
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
1993-03-14 23:21:33 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
super_class = get_class_reference (super_name);
|
|
|
|
|
if (TREE_CODE (method_context) == CLASS_METHOD_DECL)
|
|
|
|
|
super_class
|
|
|
|
|
= build_component_ref (build_indirect_ref (super_class, "->"),
|
|
|
|
|
get_identifier ("isa"));
|
1993-03-14 23:21:33 +01:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
1993-03-14 23:21:33 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
add_class_reference (super_name);
|
|
|
|
|
super_class = (TREE_CODE (method_context) == INSTANCE_METHOD_DECL
|
|
|
|
|
? objc_get_class_decl : objc_get_meta_class_decl);
|
|
|
|
|
assemble_external (super_class);
|
|
|
|
|
super_class
|
|
|
|
|
= build_function_call
|
|
|
|
|
(super_class,
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
build_tree_list
|
|
|
|
|
(NULL_TREE,
|
|
|
|
|
my_build_string (IDENTIFIER_LENGTH (super_name) + 1,
|
|
|
|
|
IDENTIFIER_POINTER (super_name))));
|
1993-03-14 23:21:33 +01:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
TREE_TYPE (super_class) = TREE_TYPE (ucls_super_ref);
|
|
|
|
|
super_expr = build_modify_expr (super_expr, NOP_EXPR, super_class);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (super_expr_list, build_tree_list (NULL_TREE, super_expr));
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
super_expr = build_unary_op (ADDR_EXPR, UOBJC_SUPER_decl, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chainon (super_expr_list, build_tree_list (NULL_TREE, super_expr));
|
|
|
|
|
|
|
|
|
|
return build_compound_expr (super_expr_list);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
error ("[super ...] must appear in a method context");
|
|
|
|
|
return error_mark_node;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static tree
|
|
|
|
|
encode_method_def (func_decl)
|
|
|
|
|
tree func_decl;
|
|
|
|
|
{
|
|
|
|
|
tree parms;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
int stack_size;
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
HOST_WIDE_INT max_parm_end = 0;
|
1992-04-29 01:43:21 +02:00
|
|
|
|
char buffer[40];
|
|
|
|
|
tree result;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Return type. */
|
1992-04-29 01:43:21 +02:00
|
|
|
|
encode_type (TREE_TYPE (TREE_TYPE (func_decl)),
|
1993-04-10 01:12:37 +02:00
|
|
|
|
obstack_object_size (&util_obstack),
|
|
|
|
|
OBJC_ENCODE_INLINE_DEFS);
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Stack size. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (parms = DECL_ARGUMENTS (func_decl); parms;
|
|
|
|
|
parms = TREE_CHAIN (parms))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
HOST_WIDE_INT parm_end = (forwarding_offset (parms)
|
|
|
|
|
+ int_size_in_bytes (TREE_TYPE (parms)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
* Clean up usages of TREE_INT_CST_LOW.
* c-parse.in (RESTORE_WARN_FLAGS): Use tree_low_cst.
* c-parse.y, c-parse.c, objc/objc-parse.y, objc/objc-parse.c:
Regenerated.
* c-tree.h (min_precision): Move declaration to here.
* c-typeck.c (build_binary_op): Use host_integerp and tree_low_cst.
(build_unary_op, add_pending_init): Use bit_position.
(pending_init_member, process_init_element): Likewise.
(really_start_incremental_init, push_init_level, pop_init_level):
Don't make copies of nodes or modify them in place, use consistent
types when tracking positions, and use tree routines computations.
(set_init_index, output_init_element): Likewise.
(output_pending_init_elements, process_init_element): Likewise.
* dbxout.c (dbxout_type_fields): Use bit_position, host_integerp,
tree_low_cst and int_bit_position; also minor cleanup.
(dbxout_type_method_1, dbxout_range_type, dbxout_type): Likewise.
(print_cst_octal): Precision is unsigned.
(dbxout_symbol): Ensure DECL_INITIAL is in-range and use tree_low_cst.
* dwarf2out.c (ceiling): Input and output are unsigned HOST_WIDE_INT.
(simple_type_align_in_bits): Result is unsigned int.
Use tree_int_low_cst and host_integerp.
(simple_type_size_in_bits): Result is unsigned HOST_WIDE_INT.
(field_byte_offset): Result is HOST_WIDE_INT.
Change types of internal variables so alignments are unsigned int,
offsets are HOST_WIDE_INT and sizes are unsigned HOST_WIDE_INT.
Use host_integerp, tree_low_cst, and int_bit_position.
(add_bit_offset_attribute): Likewise.
(add_data_member_location_attribute): Use tree_cst_low.
(add_bound_info): Use host_integerp, integer_zerop, and integer_onep.
(add_bit_size_attribute): Use tree_low_cst.
(add_pure_or_virtual_attribute, gen_enumeration_type_die): Likewise.
* dwarfout.c: Similar changes to dwarf2out.c.
* expr.c (expand_expr, case ARRAY_REF): Remove redundant code.
* genoutput.c (n_occurences): Return -1 for null string.
(strip_whitespace): Accept null string and make into function.
(scan_operands): Reflect above changes.
* sdbout.c (plain_type_1): Use host_integerp and tree_low_cst.
(sdbout_field_types, sdbout_one_type): Likewise; also use bit_position.
* ssa.c (rename_registers): Add missing cast of arg to bzero.
* tree.c (int_size_in_bytes): Check for too big to represent.
(bit_position, int_bit_position, host_integerp, tree_low_cst): New fns.
* tree.h (host_integerp, tree_low_cst, bit_position, int_bit_position):
New declarations.
(min_precision): Delete from here.
* varasm.c (decode_addr_const): Use host_integerp, bit_position,
and int_bit_position.
* objc/objc-act.c (encode_method_prototype): Sizes are HOST_WIDE_INT.
(encode_method_def): Likewise.
(build_ivar_list_initializer): Use int_bit_position.
(generate_shared_structures): Convert size.
(encode_type, encode_complete_bitfield): Use integer_zerop.
(encode_bitfield): Use tree_low_cst and int_bit_position.
* ch/typeck.c (min_precision): New function.
(build_chill_slice): Use host_integerp and tree_low_cst.
(expand_constant_to_buffer): Likewise and also int_bit_position.
LO is unsigned HOST_WIDE_INT
(build_chill_array_ref_1): Make `i' be HOST_WIDE_INT; use tree_low_cst.
(extract_constant_from_buffer): Sizes are now HOST_WIDE_INT.
Use host_integerp and tree_low_cst.
(build_chill_bin_type): Use host_integerp and tree_low_cst.
(layout_chill_range_type): Use tree_int_cst_sgn, compare_tree_int,
tree_low_cst, and min_precision.
(apply_chill_array_layout): Cleanups for types of variables
and use tree_int_cst_sgn, compare_tree_int, and tree_low_cst.
(apply_chill_field_layout): Likewise.
* cp/class.c (build_vbase_path): Use integer_zerop.
(build_vtable_entry): Use tree_low_cst.
(get_vfield_offset): Use bit_position.
(dfs_modify_vtables): New variable vindex_val; `i' is HOST_WIDE_INT.
Use tree_low_cst.
(check_bitfield_decl): Set DECL_SIZE using convert.
(build_base_field): Set DECL_SIZE and DECL_SIZE_UNIT using size_binop.
(layout_virtual_bases): DSIZE is unsigned HOST_WIDE_INT.
Use tree_low_cst.
(finish_struct_1): Use bit_position.
(dump_class_hierarchy): Use tree_low_cst.
* cp/cp-tree.h (min_precision): Add declaration.
* cp/decl.c (xref_tag, xref_basetypes): Use tree_low_cst.
* cp/error.c (dump_type_suffix): Use host_integerp and tree_low_cst.
(dump_expr): Use integer_zerop, host_integerp, and tree_low_cst.
* cp/expr.c (cplus_expand_constant): Use bit_position.
* cp/init.c (build_vec_init): Use host_integerp and tree_low_cst.
* cp/rtti.c (get_base_offset): Use bit_position.
* cp/typeck.c (build_binary_op): Use integer_zerop, compare_tree_int,
host_integerp, and tree_low_cst.
(pointer_int_sum): Use integer_zerop.
(build_component_addr): Use bit_position.
* java/class.c (make_field_value): Properly handle sizes.
(get_dispatch_vector): Use tree_low_cst and host_integerp.
(layout_class_method): Count using trees.
* java/decl.c (push_promoted_type): Set TYPE_{MIN,MAX}_VALUE with
copy_node.
* java/expr.c (java_array_data_offset): Use int_bit_position.
(build_newarray, build_anewarray): Use host_integerp and tree_low_cst.
(build_invokevirtual): Use tree_low_cst and do computations with trees.
From-SVN: r32607
2000-03-17 18:31:58 +01:00
|
|
|
|
if (! offset_is_register && parm_end > max_parm_end)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
max_parm_end = parm_end;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
stack_size = max_parm_end - OBJC_FORWARDING_MIN_OFFSET;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1992-04-29 01:43:21 +02:00
|
|
|
|
sprintf (buffer, "%d", stack_size);
|
|
|
|
|
obstack_grow (&util_obstack, buffer, strlen (buffer));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Argument types. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (parms = DECL_ARGUMENTS (func_decl); parms;
|
|
|
|
|
parms = TREE_CHAIN (parms))
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Type. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
encode_type (TREE_TYPE (parms),
|
|
|
|
|
obstack_object_size (&util_obstack),
|
|
|
|
|
OBJC_ENCODE_INLINE_DEFS);
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Compute offset. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
sprintf (buffer, "%d", forwarding_offset (parms));
|
1993-08-24 11:56:48 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Indicate register. */
|
1993-08-24 11:56:48 +02:00
|
|
|
|
if (offset_is_register)
|
|
|
|
|
obstack_1grow (&util_obstack, '+');
|
|
|
|
|
|
1992-04-29 01:43:21 +02:00
|
|
|
|
obstack_grow (&util_obstack, buffer, strlen (buffer));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
/* Null terminate string. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
obstack_1grow (&util_obstack, 0);
|
1992-04-29 01:43:21 +02:00
|
|
|
|
result = get_identifier (obstack_finish (&util_obstack));
|
|
|
|
|
obstack_free (&util_obstack, util_firstobj);
|
|
|
|
|
return result;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
2000-09-17 09:38:23 +02:00
|
|
|
|
static void
|
|
|
|
|
objc_expand_function_end ()
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
METHOD_ENCODING (method_context) = encode_method_def (current_function_decl);
|
2000-09-17 09:38:23 +02:00
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2000-09-17 09:38:23 +02:00
|
|
|
|
void
|
|
|
|
|
finish_method_def ()
|
|
|
|
|
{
|
|
|
|
|
lang_expand_function_end = objc_expand_function_end;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
finish_function (0);
|
2000-09-17 09:38:23 +02:00
|
|
|
|
lang_expand_function_end = NULL;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Required to implement _msgSuper. This must be done AFTER finish_function,
|
|
|
|
|
since the optimizer may find "may be used before set" errors. */
|
|
|
|
|
method_context = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
1997-12-12 07:20:41 +01:00
|
|
|
|
#if 0
|
1992-01-18 00:15:38 +01:00
|
|
|
|
int
|
|
|
|
|
lang_report_error_function (decl)
|
|
|
|
|
tree decl;
|
|
|
|
|
{
|
|
|
|
|
if (method_context)
|
|
|
|
|
{
|
|
|
|
|
fprintf (stderr, "In method `%s'\n",
|
|
|
|
|
IDENTIFIER_POINTER (METHOD_SEL_NAME (method_context)));
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1997-12-12 07:20:41 +01:00
|
|
|
|
#endif
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
is_complex_decl (type)
|
|
|
|
|
tree type;
|
|
|
|
|
{
|
|
|
|
|
return (TREE_CODE (type) == ARRAY_TYPE
|
|
|
|
|
|| TREE_CODE (type) == FUNCTION_TYPE
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
|| (TREE_CODE (type) == POINTER_TYPE && ! IS_ID (type)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Code to convert a decl node into text for a declaration in C. */
|
|
|
|
|
|
|
|
|
|
static char tmpbuf[256];
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
adorn_decl (decl, str)
|
|
|
|
|
tree decl;
|
|
|
|
|
char *str;
|
|
|
|
|
{
|
|
|
|
|
enum tree_code code = TREE_CODE (decl);
|
|
|
|
|
|
|
|
|
|
if (code == ARRAY_REF)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree an_int_cst = TREE_OPERAND (decl, 1);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (an_int_cst && TREE_CODE (an_int_cst) == INTEGER_CST)
|
1998-06-22 07:23:33 +02:00
|
|
|
|
sprintf (str + strlen (str), "[%ld]",
|
|
|
|
|
(long) TREE_INT_CST_LOW (an_int_cst));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
|
|
|
|
strcat (str, "[]");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (code == ARRAY_TYPE)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree an_int_cst = TYPE_SIZE (decl);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree array_of = TREE_TYPE (decl);
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (an_int_cst && TREE_CODE (an_int_cst) == INTEGER_TYPE)
|
1998-06-22 07:23:33 +02:00
|
|
|
|
sprintf (str + strlen (str), "[%ld]",
|
|
|
|
|
(long) (TREE_INT_CST_LOW (an_int_cst)
|
|
|
|
|
/ TREE_INT_CST_LOW (TYPE_SIZE (array_of))));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
|
|
|
|
strcat (str, "[]");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (code == CALL_EXPR)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
tree chain = TREE_PURPOSE (TREE_OPERAND (decl, 1));
|
|
|
|
|
|
|
|
|
|
strcat (str, "(");
|
|
|
|
|
while (chain)
|
|
|
|
|
{
|
2001-03-28 04:49:19 +02:00
|
|
|
|
gen_declaration_1 (chain, str);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
if (chain)
|
|
|
|
|
strcat (str, ", ");
|
|
|
|
|
}
|
|
|
|
|
strcat (str, ")");
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (code == FUNCTION_TYPE)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
tree chain = TYPE_ARG_TYPES (decl);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (str, "(");
|
|
|
|
|
while (chain && TREE_VALUE (chain) != void_type_node)
|
|
|
|
|
{
|
2001-03-28 04:49:19 +02:00
|
|
|
|
gen_declaration_1 (TREE_VALUE (chain), str);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
if (chain && TREE_VALUE (chain) != void_type_node)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
strcat (str, ", ");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
strcat (str, ")");
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (code == INDIRECT_REF)
|
|
|
|
|
{
|
|
|
|
|
strcpy (tmpbuf, "*");
|
|
|
|
|
if (TREE_TYPE (decl) && TREE_CODE (TREE_TYPE (decl)) == TREE_LIST)
|
|
|
|
|
{
|
|
|
|
|
tree chain;
|
|
|
|
|
|
|
|
|
|
for (chain = nreverse (copy_list (TREE_TYPE (decl)));
|
|
|
|
|
chain;
|
|
|
|
|
chain = TREE_CHAIN (chain))
|
|
|
|
|
{
|
|
|
|
|
if (TREE_CODE (TREE_VALUE (chain)) == IDENTIFIER_NODE)
|
|
|
|
|
{
|
|
|
|
|
strcat (tmpbuf, " ");
|
|
|
|
|
strcat (tmpbuf, IDENTIFIER_POINTER (TREE_VALUE (chain)));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (str[0])
|
|
|
|
|
strcat (tmpbuf, " ");
|
|
|
|
|
}
|
|
|
|
|
strcat (tmpbuf, str);
|
|
|
|
|
strcpy (str, tmpbuf);
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (code == POINTER_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
strcpy (tmpbuf, "*");
|
|
|
|
|
if (TREE_READONLY (decl) || TYPE_VOLATILE (decl))
|
|
|
|
|
{
|
|
|
|
|
if (TREE_READONLY (decl))
|
|
|
|
|
strcat (tmpbuf, " const");
|
|
|
|
|
if (TYPE_VOLATILE (decl))
|
|
|
|
|
strcat (tmpbuf, " volatile");
|
|
|
|
|
if (str[0])
|
|
|
|
|
strcat (tmpbuf, " ");
|
|
|
|
|
}
|
|
|
|
|
strcat (tmpbuf, str);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcpy (str, tmpbuf);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static char *
|
|
|
|
|
gen_declarator (decl, buf, name)
|
|
|
|
|
tree decl;
|
|
|
|
|
char *buf;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *name;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
if (decl)
|
|
|
|
|
{
|
|
|
|
|
enum tree_code code = TREE_CODE (decl);
|
|
|
|
|
char *str;
|
|
|
|
|
tree op;
|
|
|
|
|
int wrap = 0;
|
|
|
|
|
|
|
|
|
|
switch (code)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
case ARRAY_REF:
|
|
|
|
|
case INDIRECT_REF:
|
|
|
|
|
case CALL_EXPR:
|
|
|
|
|
op = TREE_OPERAND (decl, 0);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* We have a pointer to a function or array...(*)(), (*)[] */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((code == ARRAY_REF || code == CALL_EXPR)
|
|
|
|
|
&& op && TREE_CODE (op) == INDIRECT_REF)
|
|
|
|
|
wrap = 1;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
str = gen_declarator (op, buf, name);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (wrap)
|
|
|
|
|
{
|
|
|
|
|
strcpy (tmpbuf, "(");
|
|
|
|
|
strcat (tmpbuf, str);
|
|
|
|
|
strcat (tmpbuf, ")");
|
|
|
|
|
strcpy (str, tmpbuf);
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
adorn_decl (decl, str);
|
|
|
|
|
break;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
case ARRAY_TYPE:
|
|
|
|
|
case FUNCTION_TYPE:
|
|
|
|
|
case POINTER_TYPE:
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
strcpy (buf, name);
|
|
|
|
|
str = buf;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* This clause is done iteratively rather than recursively. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
op = (is_complex_decl (TREE_TYPE (decl))
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
? TREE_TYPE (decl) : NULL_TREE);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
adorn_decl (decl, str);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* We have a pointer to a function or array...(*)(), (*)[] */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (code == POINTER_TYPE
|
|
|
|
|
&& op && (TREE_CODE (op) == FUNCTION_TYPE
|
|
|
|
|
|| TREE_CODE (op) == ARRAY_TYPE))
|
|
|
|
|
{
|
|
|
|
|
strcpy (tmpbuf, "(");
|
|
|
|
|
strcat (tmpbuf, str);
|
|
|
|
|
strcat (tmpbuf, ")");
|
|
|
|
|
strcpy (str, tmpbuf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
decl = (is_complex_decl (TREE_TYPE (decl))
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
? TREE_TYPE (decl) : NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
while (decl && (code = TREE_CODE (decl)))
|
|
|
|
|
;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
break;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
case IDENTIFIER_NODE:
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Will only happen if we are processing a "raw" expr-decl. */
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
strcpy (buf, IDENTIFIER_POINTER (decl));
|
|
|
|
|
return buf;
|
1997-12-22 10:31:41 +01:00
|
|
|
|
|
|
|
|
|
default:
|
1999-04-14 22:28:54 +02:00
|
|
|
|
abort ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return str;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have an abstract declarator or a _DECL node. */
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
{
|
|
|
|
|
strcpy (buf, name);
|
|
|
|
|
return buf;
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gen_declspecs (declspecs, buf, raw)
|
|
|
|
|
tree declspecs;
|
|
|
|
|
char *buf;
|
|
|
|
|
int raw;
|
|
|
|
|
{
|
|
|
|
|
if (raw)
|
|
|
|
|
{
|
|
|
|
|
tree chain;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (chain = nreverse (copy_list (declspecs));
|
|
|
|
|
chain; chain = TREE_CHAIN (chain))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
tree aspec = TREE_VALUE (chain);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (aspec) == IDENTIFIER_NODE)
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (aspec));
|
|
|
|
|
else if (TREE_CODE (aspec) == RECORD_TYPE)
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_NAME (aspec))
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree protocol_list = TYPE_PROTOCOL_LIST (aspec);
|
|
|
|
|
|
|
|
|
|
if (! TREE_STATIC_TEMPLATE (aspec))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, "struct ");
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (TYPE_NAME (aspec)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* NEW!!! */
|
|
|
|
|
if (protocol_list)
|
|
|
|
|
{
|
|
|
|
|
tree chain = protocol_list;
|
|
|
|
|
|
|
|
|
|
strcat (buf, " <");
|
|
|
|
|
while (chain)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
strcat (buf,
|
|
|
|
|
IDENTIFIER_POINTER
|
|
|
|
|
(PROTOCOL_NAME (TREE_VALUE (chain))));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
if (chain)
|
|
|
|
|
strcat (buf, ", ");
|
|
|
|
|
}
|
|
|
|
|
strcat (buf, ">");
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
strcat (buf, "untagged struct");
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (TREE_CODE (aspec) == UNION_TYPE)
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_NAME (aspec))
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! TREE_STATIC_TEMPLATE (aspec))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, "union ");
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (TYPE_NAME (aspec)));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
strcat (buf, "untagged union");
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else if (TREE_CODE (aspec) == ENUMERAL_TYPE)
|
|
|
|
|
{
|
|
|
|
|
if (TYPE_NAME (aspec))
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! TREE_STATIC_TEMPLATE (aspec))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, "enum ");
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (TYPE_NAME (aspec)));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
strcat (buf, "untagged enum");
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (TREE_CODE (aspec) == TYPE_DECL && DECL_NAME (aspec))
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (DECL_NAME (aspec)));
|
|
|
|
|
|
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type checking macros.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(IS_ID, IS_PROTOCOL_QUALIFIED_ID, IS_SUPER): New type
checking macros.
(objc_comptypes, build_message_expr, gen_declspecs): Use them.
(gen_declarator): Don't use strcpy's return value.
(build_message_expr): Allow any type that matches
objc_class_type.
(get_class_reference): We already have a name.
(build_objc_string): Use TREE_SET_CODE instead of
assigning to TREE_CODE.
(build_objc_string_object): Ditto.
From-SVN: r4158
1993-04-15 19:27:29 +02:00
|
|
|
|
else if (IS_ID (aspec))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
tree protocol_list = TYPE_PROTOCOL_LIST (aspec);
|
|
|
|
|
|
|
|
|
|
strcat (buf, "id");
|
|
|
|
|
if (protocol_list)
|
|
|
|
|
{
|
|
|
|
|
tree chain = protocol_list;
|
|
|
|
|
|
|
|
|
|
strcat (buf, " <");
|
|
|
|
|
while (chain)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
strcat (buf,
|
|
|
|
|
IDENTIFIER_POINTER
|
|
|
|
|
(PROTOCOL_NAME (TREE_VALUE (chain))));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
if (chain)
|
|
|
|
|
strcat (buf, ", ");
|
|
|
|
|
}
|
|
|
|
|
strcat (buf, ">");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (TREE_CHAIN (chain))
|
|
|
|
|
strcat (buf, " ");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Type qualifiers. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (TREE_READONLY (declspecs))
|
|
|
|
|
strcat (buf, "const ");
|
|
|
|
|
if (TYPE_VOLATILE (declspecs))
|
|
|
|
|
strcat (buf, "volatile ");
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
switch (TREE_CODE (declspecs))
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Type specifiers. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
case INTEGER_TYPE:
|
|
|
|
|
declspecs = TYPE_MAIN_VARIANT (declspecs);
|
|
|
|
|
|
|
|
|
|
/* Signed integer types. */
|
|
|
|
|
|
|
|
|
|
if (declspecs == short_integer_type_node)
|
|
|
|
|
strcat (buf, "short int ");
|
|
|
|
|
else if (declspecs == integer_type_node)
|
|
|
|
|
strcat (buf, "int ");
|
|
|
|
|
else if (declspecs == long_integer_type_node)
|
|
|
|
|
strcat (buf, "long int ");
|
|
|
|
|
else if (declspecs == long_long_integer_type_node)
|
|
|
|
|
strcat (buf, "long long int ");
|
|
|
|
|
else if (declspecs == signed_char_type_node
|
|
|
|
|
|| declspecs == char_type_node)
|
|
|
|
|
strcat (buf, "char ");
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Unsigned integer types. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
else if (declspecs == short_unsigned_type_node)
|
|
|
|
|
strcat (buf, "unsigned short ");
|
|
|
|
|
else if (declspecs == unsigned_type_node)
|
|
|
|
|
strcat (buf, "unsigned int ");
|
|
|
|
|
else if (declspecs == long_unsigned_type_node)
|
|
|
|
|
strcat (buf, "unsigned long ");
|
|
|
|
|
else if (declspecs == long_long_unsigned_type_node)
|
|
|
|
|
strcat (buf, "unsigned long long ");
|
|
|
|
|
else if (declspecs == unsigned_char_type_node)
|
|
|
|
|
strcat (buf, "unsigned char ");
|
|
|
|
|
break;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
case REAL_TYPE:
|
|
|
|
|
declspecs = TYPE_MAIN_VARIANT (declspecs);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (declspecs == float_type_node)
|
|
|
|
|
strcat (buf, "float ");
|
|
|
|
|
else if (declspecs == double_type_node)
|
|
|
|
|
strcat (buf, "double ");
|
|
|
|
|
else if (declspecs == long_double_type_node)
|
|
|
|
|
strcat (buf, "long double ");
|
|
|
|
|
break;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2001-03-09 04:27:41 +01:00
|
|
|
|
case RECORD_TYPE:
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
if (TYPE_NAME (declspecs)
|
|
|
|
|
&& TREE_CODE (TYPE_NAME (declspecs)) == IDENTIFIER_NODE)
|
|
|
|
|
{
|
|
|
|
|
tree protocol_list = TYPE_PROTOCOL_LIST (declspecs);
|
|
|
|
|
|
|
|
|
|
if (! TREE_STATIC_TEMPLATE (declspecs))
|
|
|
|
|
strcat (buf, "struct ");
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (TYPE_NAME (declspecs)));
|
|
|
|
|
|
|
|
|
|
if (protocol_list)
|
|
|
|
|
{
|
|
|
|
|
tree chain = protocol_list;
|
|
|
|
|
|
|
|
|
|
strcat (buf, " <");
|
|
|
|
|
while (chain)
|
|
|
|
|
{
|
|
|
|
|
strcat (buf,
|
|
|
|
|
IDENTIFIER_POINTER
|
|
|
|
|
(PROTOCOL_NAME (TREE_VALUE (chain))));
|
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
if (chain)
|
|
|
|
|
strcat (buf, ", ");
|
|
|
|
|
}
|
|
|
|
|
strcat (buf, ">");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
strcat (buf, "untagged struct");
|
|
|
|
|
|
|
|
|
|
strcat (buf, " ");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case UNION_TYPE:
|
|
|
|
|
if (TYPE_NAME (declspecs)
|
|
|
|
|
&& TREE_CODE (TYPE_NAME (declspecs)) == IDENTIFIER_NODE)
|
|
|
|
|
{
|
|
|
|
|
strcat (buf, "union ");
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (TYPE_NAME (declspecs)));
|
|
|
|
|
strcat (buf, " ");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
strcat (buf, "untagged union ");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case ENUMERAL_TYPE:
|
|
|
|
|
if (TYPE_NAME (declspecs)
|
|
|
|
|
&& TREE_CODE (TYPE_NAME (declspecs)) == IDENTIFIER_NODE)
|
|
|
|
|
{
|
|
|
|
|
strcat (buf, "enum ");
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (TYPE_NAME (declspecs)));
|
|
|
|
|
strcat (buf, " ");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
strcat (buf, "untagged enum ");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case VOID_TYPE:
|
|
|
|
|
strcat (buf, "void ");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case POINTER_TYPE:
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree protocol_list = TYPE_PROTOCOL_LIST (declspecs);
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
strcat (buf, "id");
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (protocol_list)
|
|
|
|
|
{
|
|
|
|
|
tree chain = protocol_list;
|
|
|
|
|
|
|
|
|
|
strcat (buf, " <");
|
|
|
|
|
while (chain)
|
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
strcat (buf,
|
|
|
|
|
IDENTIFIER_POINTER
|
|
|
|
|
(PROTOCOL_NAME (TREE_VALUE (chain))));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
if (chain)
|
|
|
|
|
strcat (buf, ", ");
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
strcat (buf, ">");
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1997-12-22 10:31:41 +01:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
break;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
2001-03-28 04:49:19 +02:00
|
|
|
|
/* Given a tree node, produce a printable description of it in the given
|
|
|
|
|
buffer, overwriting the buffer. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static char *
|
|
|
|
|
gen_declaration (atype_or_adecl, buf)
|
|
|
|
|
tree atype_or_adecl;
|
|
|
|
|
char *buf;
|
2001-03-28 04:49:19 +02:00
|
|
|
|
{
|
|
|
|
|
buf[0] = '\0';
|
|
|
|
|
gen_declaration_1 (atype_or_adecl, buf);
|
|
|
|
|
return buf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Given a tree node, append a printable description to the end of the
|
|
|
|
|
given buffer. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
gen_declaration_1 (atype_or_adecl, buf)
|
|
|
|
|
tree atype_or_adecl;
|
|
|
|
|
char *buf;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
char declbuf[256];
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (atype_or_adecl) == TREE_LIST)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree declspecs; /* "identifier_node", "record_type" */
|
1996-07-04 00:07:53 +02:00
|
|
|
|
tree declarator; /* "array_ref", "indirect_ref", "call_expr"... */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have a "raw", abstract declarator (typename). */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
declarator = TREE_VALUE (atype_or_adecl);
|
|
|
|
|
declspecs = TREE_PURPOSE (atype_or_adecl);
|
|
|
|
|
|
|
|
|
|
gen_declspecs (declspecs, buf, 1);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (declarator)
|
|
|
|
|
{
|
|
|
|
|
strcat (buf, " ");
|
|
|
|
|
strcat (buf, gen_declarator (declarator, declbuf, ""));
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
tree atype;
|
1996-07-04 00:07:53 +02:00
|
|
|
|
tree declspecs; /* "integer_type", "real_type", "record_type"... */
|
|
|
|
|
tree declarator; /* "array_type", "function_type", "pointer_type". */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (TREE_CODE (atype_or_adecl) == FIELD_DECL
|
|
|
|
|
|| TREE_CODE (atype_or_adecl) == PARM_DECL
|
|
|
|
|
|| TREE_CODE (atype_or_adecl) == FUNCTION_DECL)
|
|
|
|
|
atype = TREE_TYPE (atype_or_adecl);
|
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Assume we have a *_type node. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
atype = atype_or_adecl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (is_complex_decl (atype))
|
|
|
|
|
{
|
|
|
|
|
tree chain;
|
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Get the declaration specifier; it is at the end of the list. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
declarator = chain = atype;
|
|
|
|
|
do
|
|
|
|
|
chain = TREE_TYPE (chain); /* not TREE_CHAIN (chain); */
|
|
|
|
|
while (is_complex_decl (chain));
|
|
|
|
|
declspecs = chain;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
declspecs = atype;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
declarator = NULL_TREE;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
gen_declspecs (declspecs, buf, 0);
|
|
|
|
|
|
|
|
|
|
if (TREE_CODE (atype_or_adecl) == FIELD_DECL
|
|
|
|
|
|| TREE_CODE (atype_or_adecl) == PARM_DECL
|
|
|
|
|
|| TREE_CODE (atype_or_adecl) == FUNCTION_DECL)
|
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *decl_name =
|
|
|
|
|
(DECL_NAME (atype_or_adecl)
|
|
|
|
|
? IDENTIFIER_POINTER (DECL_NAME (atype_or_adecl)) : "");
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (declarator)
|
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
strcat (buf, " ");
|
|
|
|
|
strcat (buf, gen_declarator (declarator, declbuf, decl_name));
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (decl_name[0])
|
|
|
|
|
{
|
|
|
|
|
strcat (buf, " ");
|
|
|
|
|
strcat (buf, decl_name);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (declarator)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
strcat (buf, " ");
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, gen_declarator (declarator, declbuf, ""));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#define RAW_TYPESPEC(meth) (TREE_VALUE (TREE_PURPOSE (TREE_TYPE (meth))))
|
|
|
|
|
|
2001-03-28 04:49:19 +02:00
|
|
|
|
/* Given a method tree, put a printable description into the given
|
|
|
|
|
buffer (overwriting) and return a pointer to the buffer. */
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static char *
|
|
|
|
|
gen_method_decl (method, buf)
|
|
|
|
|
tree method;
|
|
|
|
|
char *buf;
|
|
|
|
|
{
|
|
|
|
|
tree chain;
|
|
|
|
|
|
2001-03-28 04:49:19 +02:00
|
|
|
|
buf[0] = '\0';
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (RAW_TYPESPEC (method) != objc_object_reference)
|
|
|
|
|
{
|
2001-03-28 04:49:19 +02:00
|
|
|
|
strcat (buf, "(");
|
|
|
|
|
gen_declaration_1 (TREE_TYPE (method), buf);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, ")");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
chain = METHOD_SEL_ARGS (method);
|
|
|
|
|
if (chain)
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have a chain of keyword_decls. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (KEYWORD_KEY_NAME (chain))
|
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (KEYWORD_KEY_NAME (chain)));
|
|
|
|
|
|
|
|
|
|
strcat (buf, ":");
|
|
|
|
|
if (RAW_TYPESPEC (chain) != objc_object_reference)
|
|
|
|
|
{
|
|
|
|
|
strcat (buf, "(");
|
2001-03-28 04:49:19 +02:00
|
|
|
|
gen_declaration_1 (TREE_TYPE (chain), buf);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, ")");
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (KEYWORD_ARG_NAME (chain)));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if ((chain = TREE_CHAIN (chain)))
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, " ");
|
|
|
|
|
}
|
|
|
|
|
while (chain);
|
|
|
|
|
|
2000-04-12 09:22:32 +02:00
|
|
|
|
if (METHOD_ADD_ARGS (method) == objc_ellipsis_node)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
strcat (buf, ", ...");
|
|
|
|
|
else if (METHOD_ADD_ARGS (method))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* We have a tree list node as generate by get_parm_info. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chain = TREE_PURPOSE (METHOD_ADD_ARGS (method));
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Know we have a chain of parm_decls. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
while (chain)
|
|
|
|
|
{
|
|
|
|
|
strcat (buf, ", ");
|
2001-03-28 04:49:19 +02:00
|
|
|
|
gen_declaration_1 (chain, buf);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
chain = TREE_CHAIN (chain);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
else
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have a unary selector. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
strcat (buf, IDENTIFIER_POINTER (METHOD_SEL_NAME (method)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
return buf;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
|
|
|
|
/* Debug info. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
static void
|
|
|
|
|
dump_interface (fp, chain)
|
|
|
|
|
FILE *fp;
|
|
|
|
|
tree chain;
|
|
|
|
|
{
|
|
|
|
|
char *buf = (char *)xmalloc (256);
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *my_name = IDENTIFIER_POINTER (CLASS_NAME (chain));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree ivar_decls = CLASS_RAW_IVARS (chain);
|
|
|
|
|
tree nst_methods = CLASS_NST_METHODS (chain);
|
|
|
|
|
tree cls_methods = CLASS_CLS_METHODS (chain);
|
|
|
|
|
|
|
|
|
|
fprintf (fp, "\n@interface %s", my_name);
|
|
|
|
|
|
|
|
|
|
if (CLASS_SUPER_NAME (chain))
|
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *super_name = IDENTIFIER_POINTER (CLASS_SUPER_NAME (chain));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
fprintf (fp, " : %s\n", super_name);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
fprintf (fp, "\n");
|
|
|
|
|
|
|
|
|
|
if (ivar_decls)
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "{\n");
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "\t%s;\n", gen_declaration (ivar_decls, buf));
|
|
|
|
|
ivar_decls = TREE_CHAIN (ivar_decls);
|
|
|
|
|
}
|
|
|
|
|
while (ivar_decls);
|
|
|
|
|
fprintf (fp, "}\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
while (nst_methods)
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "- %s;\n", gen_method_decl (nst_methods, buf));
|
|
|
|
|
nst_methods = TREE_CHAIN (nst_methods);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
while (cls_methods)
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "+ %s;\n", gen_method_decl (cls_methods, buf));
|
|
|
|
|
cls_methods = TREE_CHAIN (cls_methods);
|
|
|
|
|
}
|
|
|
|
|
fprintf (fp, "\n@end");
|
|
|
|
|
}
|
|
|
|
|
|
1997-12-12 07:20:41 +01:00
|
|
|
|
/* Demangle function for Objective-C */
|
|
|
|
|
static const char *
|
|
|
|
|
objc_demangle (mangled)
|
|
|
|
|
const char *mangled;
|
|
|
|
|
{
|
|
|
|
|
char *demangled, *cp;
|
|
|
|
|
|
|
|
|
|
if (mangled[0] == '_' &&
|
|
|
|
|
(mangled[1] == 'i' || mangled[1] == 'c') &&
|
|
|
|
|
mangled[2] == '_')
|
|
|
|
|
{
|
|
|
|
|
cp = demangled = xmalloc(strlen(mangled) + 2);
|
|
|
|
|
if (mangled[1] == 'i')
|
|
|
|
|
*cp++ = '-'; /* for instance method */
|
|
|
|
|
else
|
|
|
|
|
*cp++ = '+'; /* for class method */
|
|
|
|
|
*cp++ = '['; /* opening left brace */
|
|
|
|
|
strcpy(cp, mangled+3); /* tack on the rest of the mangled name */
|
|
|
|
|
while (*cp && *cp == '_')
|
|
|
|
|
cp++; /* skip any initial underbars in class name */
|
|
|
|
|
cp = strchr(cp, '_'); /* find first non-initial underbar */
|
|
|
|
|
if (cp == NULL)
|
|
|
|
|
{
|
|
|
|
|
free(demangled); /* not mangled name */
|
|
|
|
|
return mangled;
|
|
|
|
|
}
|
|
|
|
|
if (cp[1] == '_') /* easy case: no category name */
|
|
|
|
|
{
|
|
|
|
|
*cp++ = ' '; /* replace two '_' with one ' ' */
|
|
|
|
|
strcpy(cp, mangled + (cp - demangled) + 2);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*cp++ = '('; /* less easy case: category name */
|
|
|
|
|
cp = strchr(cp, '_');
|
|
|
|
|
if (cp == 0)
|
|
|
|
|
{
|
|
|
|
|
free(demangled); /* not mangled name */
|
|
|
|
|
return mangled;
|
|
|
|
|
}
|
|
|
|
|
*cp++ = ')';
|
|
|
|
|
*cp++ = ' '; /* overwriting 1st char of method name... */
|
|
|
|
|
strcpy(cp, mangled + (cp - demangled)); /* get it back */
|
|
|
|
|
}
|
|
|
|
|
while (*cp && *cp == '_')
|
|
|
|
|
cp++; /* skip any initial underbars in method name */
|
|
|
|
|
for (; *cp; cp++)
|
|
|
|
|
if (*cp == '_')
|
|
|
|
|
*cp = ':'; /* replace remaining '_' with ':' */
|
|
|
|
|
*cp++ = ']'; /* closing right brace */
|
|
|
|
|
*cp++ = 0; /* string terminator */
|
|
|
|
|
return demangled;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return mangled; /* not an objc mangled name */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
|
objc_printable_name (decl, kind)
|
|
|
|
|
tree decl;
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
int kind ATTRIBUTE_UNUSED;
|
1997-12-12 07:20:41 +01:00
|
|
|
|
{
|
|
|
|
|
return objc_demangle (IDENTIFIER_POINTER (DECL_NAME (decl)));
|
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static void
|
1992-01-18 00:15:38 +01:00
|
|
|
|
init_objc ()
|
|
|
|
|
{
|
|
|
|
|
/* Add the special tree codes of Objective C to the tables. */
|
|
|
|
|
|
2000-09-17 09:38:23 +02:00
|
|
|
|
#define LAST_CODE LAST_C_TREE_CODE
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-04-29 01:43:21 +02:00
|
|
|
|
gcc_obstack_init (&util_obstack);
|
|
|
|
|
util_firstobj = (char *) obstack_finish (&util_obstack);
|
|
|
|
|
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
memcpy (tree_code_type + (int) LAST_CODE,
|
|
|
|
|
objc_tree_code_type,
|
|
|
|
|
(int) LAST_OBJC_TREE_CODE - (int) LAST_CODE);
|
|
|
|
|
memcpy (tree_code_length + (int) LAST_CODE,
|
|
|
|
|
objc_tree_code_length,
|
|
|
|
|
(((int) LAST_OBJC_TREE_CODE - (int) LAST_CODE) * sizeof (int)));
|
|
|
|
|
memcpy (tree_code_name + (int) LAST_CODE,
|
|
|
|
|
objc_tree_code_name,
|
|
|
|
|
(((int) LAST_OBJC_TREE_CODE - (int) LAST_CODE) * sizeof (char *)));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
errbuf = (char *)xmalloc (BUFSIZE);
|
|
|
|
|
hash_init ();
|
|
|
|
|
synth_module_prologue ();
|
1997-12-12 07:20:41 +01:00
|
|
|
|
|
|
|
|
|
/* Change the default error function */
|
2001-03-07 01:29:25 +01:00
|
|
|
|
save_lang_status = &push_c_function_context;
|
|
|
|
|
restore_lang_status = &pop_c_function_context;
|
|
|
|
|
mark_lang_status = &mark_c_function_context;
|
1999-08-29 15:41:25 +02:00
|
|
|
|
decl_printable_name = objc_printable_name;
|
2000-09-17 09:38:23 +02:00
|
|
|
|
lang_expand_expr = c_expand_expr;
|
|
|
|
|
lang_expand_decl_stmt = c_expand_decl_stmt;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static void
|
1992-01-18 00:15:38 +01:00
|
|
|
|
finish_objc ()
|
|
|
|
|
{
|
|
|
|
|
struct imp_entry *impent;
|
|
|
|
|
tree chain;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
/* The internally generated initializers appear to have missing braces.
|
|
|
|
|
Don't warn about this. */
|
|
|
|
|
int save_warn_missing_braces = warn_missing_braces;
|
|
|
|
|
warn_missing_braces = 0;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2001-03-28 04:49:19 +02:00
|
|
|
|
/* A missing @end may not be detected by the parser. */
|
|
|
|
|
if (objc_implementation_context)
|
|
|
|
|
{
|
|
|
|
|
warning ("`@end' missing in implementation context");
|
|
|
|
|
finish_class (implementation_context);
|
|
|
|
|
objc_ivar_chain = NULL_TREE;
|
|
|
|
|
objc_implementation_context = NULL_TREE;
|
|
|
|
|
}
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
generate_forward_declaration_to_string_table ();
|
|
|
|
|
|
|
|
|
|
#ifdef OBJC_PROLOGUE
|
|
|
|
|
OBJC_PROLOGUE;
|
|
|
|
|
#endif
|
|
|
|
|
|
1997-03-15 13:53:30 +01:00
|
|
|
|
/* Process the static instances here because initialization of objc_symtab
|
1997-12-12 07:20:41 +01:00
|
|
|
|
depends on them. */
|
1997-03-15 13:53:30 +01:00
|
|
|
|
if (objc_static_instances)
|
|
|
|
|
generate_static_references ();
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (implementation_context || class_names_chain
|
|
|
|
|
|| meth_var_names_chain || meth_var_types_chain || sel_ref_chain)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
generate_objc_symtab_decl ();
|
|
|
|
|
|
|
|
|
|
for (impent = imp_list; impent; impent = impent->next)
|
|
|
|
|
{
|
|
|
|
|
implementation_context = impent->imp_context;
|
|
|
|
|
implementation_template = impent->imp_template;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
UOBJC_CLASS_decl = impent->class_decl;
|
|
|
|
|
UOBJC_METACLASS_decl = impent->meta_decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (implementation_context) == CLASS_IMPLEMENTATION_TYPE)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
/* all of the following reference the string pool... */
|
|
|
|
|
generate_ivar_lists ();
|
|
|
|
|
generate_dispatch_tables ();
|
|
|
|
|
generate_shared_structures ();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
generate_dispatch_tables ();
|
|
|
|
|
generate_category (implementation_context);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1992-12-19 09:47:33 +01:00
|
|
|
|
/* If we are using an array of selectors, we must always
|
|
|
|
|
finish up the array decl even if no selectors were used. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (! flag_next_runtime || sel_ref_chain)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
build_selector_translation_table ();
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (protocol_chain)
|
|
|
|
|
generate_protocols ();
|
|
|
|
|
|
1995-04-27 01:18:37 +02:00
|
|
|
|
if (implementation_context || class_names_chain || objc_static_instances
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|| meth_var_names_chain || meth_var_types_chain || sel_ref_chain)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
|
|
|
|
/* Arrange for Objc data structures to be initialized at run time. */
|
rtl.h (rtunion_def): Constify member `rtstr'.
* rtl.h (rtunion_def): Constify member `rtstr'.
(emit_line_note_after, emit_line_note, emit_line_note_force,
emit_note, decode_asm_operands): Constify.
* cse.c (canon_hash): Likewise.
* dbxout.c (dbxout_block): Likewise.
* diagnostic.c (file_and_line_for_asm, v_error_for_asm,
v_warning_for_asm): Likewise.
* dwarfout.c (function_start_label): Likewise.
* emit-rtl.c (emit_line_note_after, emit_line_note, emit_note,
emit_line_note_force): Likewise.
* final.c (last_filename, asm_insn_count, final_scan_insn,
output_source_line): Likewise.
* function.h (struct emit_status): Likewise.
* gcse.c (hash_expr_1): Likewise.
* genattr.c (gen_attr, main): Likewise.
* genattrtab.c (struct function_unit, current_alternative_string,
write_attr_valueq, n_comma_elts, next_comma_elt, attr_eq,
attr_numeral, check_attr_test, check_attr_value,
convert_set_attr_alternative, convert_set_attr,
compute_alternative_mask, simplify_by_exploding, gen_attr,
gen_unit): Likewise.
* genflags.c (gen_insn): Likewise.
* gengenrtl.c (type_from_format): Likewise.
* genopinit.c (gen_insn): Likewise.
* genoutput.c (n_occurrences, process_template, process_template):
Likewise.
* ggc-page.c (ggc_set_mark, ggc_mark_if_gcable, ggc_get_size):
Likewise.
* ggc-simple.c (ggc_set_mark, ggc_mark_if_gcable, ggc_get_size):
Likewise.
* ggc.h (ggc_mark_string, ggc_mark, ggc_mark_if_gcable,
ggc_set_mark, ggc_get_size): Likewise.
* objc/objc-act.c (build_module_descriptor, finish_objc): Likewise.
* optabs.c (init_one_libfunc): Likewise.
* output.h (assemble_start_function): Likewise.
* recog.c (decode_asm_operands): Likewise.
* toplev.c (rest_of_compilation): Likewise.
* tree.h (emit_line_note_after, emit_line_note,
emit_line_note_force): Likewise.
* varasm.c (asm_output_bss, asm_output_aligned_bss,
asm_emit_uninitialised, assemble_start_function,
assemble_variable, const_hash, compare_constant_1,
find_pool_constant, mark_constant_pool, assemble_alias): Likewise.
* xcoffout.h (DBX_FINISH_SYMBOL): Likewise.
* alpha/alpha.md (call_vms, call_value_vms): Likewise.
* arm/aof.h (ASM_OUTPUT_ASCII): Likewise.
* arm/aout.h (ASM_OUTPUT_ASCII): Likewise.
* arm/arm-protos.h (output_ascii_pseudo_op, arm_dllexport_name_p,
arm_dllimport_name_p): Likewise.
* arm/arm.c (arm_encode_call_attribute, output_ascii_pseudo_op):
Likewise.
* arm/arm.h (ASM_OUTPUT_MI_THUNK): Likewise.
* arm/elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* arm/pe.c (arm_dllexport_name_p, arm_dllimport_name_p,
arm_mark_dllexport, arm_mark_dllimport,
arm_pe_encode_section_info): Likewise.
* arm/telf.h (ASM_OUTPUT_DEF_FROM_DECLS,
ASM_FINISH_DECLARE_OBJECT): Likewise.
* arm/thumb.c (thumb_function_prologue): Likewise.
* arm/thumb.h (ASM_OUTPUT_ASCII): Likewise.
* avr/avr.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* clipper/clix.h (ASM_OUTPUT_ASCII): Likewise.
* fx80/fx80.h (ASM_OUTPUT_ASCII): Likewise.
* i386/cygwin.h (ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/freebsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* i386/i386-interix.h (ASM_OUTPUT_LIMITED_STRING,
ASM_OUTPUT_ASCII, ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/i386-protos.h (asm_output_function_prefix): Likewise.
* i386/i386.c (asm_output_function_prefix): Likewise.
* i386/i386elf.h (ASM_OUTPUT_ASCII): Likewise.
* i386/osfrose.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* i386/ptx4-i.h (ASM_OUTPUT_ASCII): Likewise.
* i386/sco5.h (ASM_FINISH_DECLARE_OBJECT,
ASM_OUTPUT_LIMITED_STRING, ASM_OUTPUT_ASCII,
ASM_OUTPUT_SECTION_NAME): Likewise.
* i386/sysv4.h (ASM_OUTPUT_ASCII): Likewise.
* i860/paragon.h (ASM_OUTPUT_ASCII): Likewise.
* i860/sysv3.h (ASM_OUTPUT_ASCII): Likewise.
* m32r/m32r.c (m32r_encode_section_info): Likewise.
* mcore-elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mcore/mcore.c (mcore_encode_section_info): Likewise.
* mips/elf.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/elf64.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/iris6.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* mips/mips.h (ASM_OUTPUT_IDENT): Likewise.
* mips/mips.md (movdi, movsi): Likewise.
* mips/netbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* netbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* openbsd.h (ASM_FINISH_DECLARE_OBJECT): Likewise.
* ptx4.h (ASM_FINISH_DECLARE_OBJECT, ASM_OUTPUT_LIMITED_STRING,
ASM_OUTPUT_ASCII): Likewise.
* rs6000/rs6000.c (rs6000_allocate_stack_space, output_epilog,
output_mi_thunk, output_toc): Likewise.
* rs6000/rs6000.md (movsi): Likewise.
* rs6000/sysv4.h (ASM_OUTPUT_INT, ASM_OUTPUT_SECTION_NAME): Likewise.
* tahoe/harris.h (ASM_OUTPUT_ASCII): Likewise.
* v850/v850.c (print_operand, print_operand_address,
v850_encode_data_area): Likewise.
ch:
* grant.c (globalize_decl): Constify a char*.
cp:
* decl2.c (finish_objects): Constify a char*.
* method.c (emit_thunk): Likewise.
From-SVN: r32388
2000-03-07 21:39:10 +01:00
|
|
|
|
const char *init_name = build_module_descriptor ();
|
1992-02-15 21:26:02 +01:00
|
|
|
|
if (init_name)
|
|
|
|
|
assemble_constructor (init_name);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* Dump the class references. This forces the appropriate classes
|
1992-01-18 00:15:38 +01:00
|
|
|
|
to be linked into the executable image, preserving unix archive
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
semantics. This can be removed when we move to a more dynamically
|
1993-04-10 01:12:37 +02:00
|
|
|
|
linked environment. */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (chain = cls_ref_chain; chain; chain = TREE_CHAIN (chain))
|
1993-04-10 01:12:37 +02:00
|
|
|
|
{
|
|
|
|
|
handle_class_ref (chain);
|
|
|
|
|
if (TREE_PURPOSE (chain))
|
|
|
|
|
generate_classref_translation_entry (chain);
|
|
|
|
|
}
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
for (impent = imp_list; impent; impent = impent->next)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
handle_impent (impent);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Dump the string table last. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
generate_strings ();
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
if (flag_gen_declaration)
|
|
|
|
|
{
|
|
|
|
|
add_class (implementation_context);
|
|
|
|
|
dump_interface (gen_declaration_file, implementation_context);
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
if (warn_selector)
|
|
|
|
|
{
|
|
|
|
|
int slot;
|
1993-04-10 01:12:37 +02:00
|
|
|
|
hash hsh;
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
/* Run through the selector hash tables and print a warning for any
|
1996-07-04 00:07:53 +02:00
|
|
|
|
selector which has multiple methods. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (slot = 0; slot < SIZEHASHTABLE; slot++)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (hsh = cls_method_hash_list[slot]; hsh; hsh = hsh->next)
|
|
|
|
|
if (hsh->list)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree meth = hsh->key;
|
|
|
|
|
char type = (TREE_CODE (meth) == INSTANCE_METHOD_DECL
|
|
|
|
|
? '-' : '+');
|
|
|
|
|
attr loop;
|
|
|
|
|
|
|
|
|
|
warning ("potential selector conflict for method `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (METHOD_SEL_NAME (meth)));
|
|
|
|
|
warn_with_method ("found", type, meth);
|
|
|
|
|
for (loop = hsh->list; loop; loop = loop->next)
|
|
|
|
|
warn_with_method ("found", type, loop->value);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (slot = 0; slot < SIZEHASHTABLE; slot++)
|
1993-04-10 01:12:37 +02:00
|
|
|
|
for (hsh = nst_method_hash_list[slot]; hsh; hsh = hsh->next)
|
|
|
|
|
if (hsh->list)
|
1992-01-18 00:15:38 +01:00
|
|
|
|
{
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree meth = hsh->key;
|
|
|
|
|
char type = (TREE_CODE (meth) == INSTANCE_METHOD_DECL
|
|
|
|
|
? '-' : '+');
|
|
|
|
|
attr loop;
|
|
|
|
|
|
|
|
|
|
warning ("potential selector conflict for method `%s'",
|
|
|
|
|
IDENTIFIER_POINTER (METHOD_SEL_NAME (meth)));
|
|
|
|
|
warn_with_method ("found", type, meth);
|
|
|
|
|
for (loop = hsh->list; loop; loop = loop->next)
|
|
|
|
|
warn_with_method ("found", type, loop->value);
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
}
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
warn_missing_braces = save_warn_missing_braces;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
|
|
|
|
/* Subroutines of finish_objc. */
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static void
|
|
|
|
|
generate_classref_translation_entry (chain)
|
|
|
|
|
tree chain;
|
|
|
|
|
{
|
|
|
|
|
tree expr, name, decl_specs, decl, sc_spec;
|
|
|
|
|
tree type;
|
|
|
|
|
|
|
|
|
|
type = TREE_TYPE (TREE_PURPOSE (chain));
|
|
|
|
|
|
|
|
|
|
expr = add_objc_string (TREE_VALUE (chain), class_names);
|
|
|
|
|
expr = build_c_cast (type, expr); /* cast! */
|
|
|
|
|
|
|
|
|
|
name = DECL_NAME (TREE_PURPOSE (chain));
|
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
sc_spec = build_tree_list (NULL_TREE, ridpointers[(int) RID_STATIC]);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
|
|
|
|
/* static struct objc_class * _OBJC_CLASS_REFERENCES_n = ...; */
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
decl_specs = tree_cons (NULL_TREE, type, sc_spec);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
/* The decl that is returned from start_decl is the one that we
|
|
|
|
|
forward declared in build_class_reference. */
|
|
|
|
|
decl = start_decl (name, decl_specs, 1, NULL_TREE, NULL_TREE);
|
2001-05-01 22:45:55 +02:00
|
|
|
|
DECL_CONTEXT (decl) = NULL_TREE;
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
finish_decl (decl, expr, NULL_TREE);
|
1993-04-10 01:12:37 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
1992-04-29 01:43:21 +02:00
|
|
|
|
handle_class_ref (chain)
|
|
|
|
|
tree chain;
|
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *name = IDENTIFIER_POINTER (TREE_VALUE (chain));
|
2001-04-29 02:12:51 +02:00
|
|
|
|
char *string = (char *) alloca (strlen (name) + 30);
|
|
|
|
|
tree decl;
|
|
|
|
|
tree exp;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
2001-04-29 02:12:51 +02:00
|
|
|
|
sprintf (string, "%sobjc_class_name_%s",
|
|
|
|
|
(flag_next_runtime ? "." : "__"), name);
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
2001-04-29 02:12:51 +02:00
|
|
|
|
#ifdef ASM_DECLARE_UNRESOLVED_REFERENCE
|
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
ASM_DECLARE_UNRESOLVED_REFERENCE (asm_out_file, string);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
2001-04-29 02:12:51 +02:00
|
|
|
|
/* Make a decl for this name, so we can use its address in a tree. */
|
|
|
|
|
decl = build_decl (VAR_DECL, get_identifier (string), char_type_node);
|
|
|
|
|
DECL_EXTERNAL (decl) = 1;
|
|
|
|
|
TREE_PUBLIC (decl) = 1;
|
|
|
|
|
|
|
|
|
|
pushdecl (decl);
|
|
|
|
|
rest_of_decl_compilation (decl, 0, 0, 0);
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
2001-04-29 02:12:51 +02:00
|
|
|
|
/* Make following constant read-only, but only for GNU runtime. */
|
|
|
|
|
if (!flag_next_runtime)
|
|
|
|
|
readonly_data_section ();
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
2001-04-29 02:12:51 +02:00
|
|
|
|
exp = build1 (ADDR_EXPR, string_type_node, decl);
|
1993-05-20 05:11:40 +02:00
|
|
|
|
|
2001-04-29 02:12:51 +02:00
|
|
|
|
/* Align the section properly. */
|
|
|
|
|
assemble_constant_align (exp);
|
1993-05-20 05:11:40 +02:00
|
|
|
|
|
2001-04-29 02:12:51 +02:00
|
|
|
|
/* Inform the assembler about this new external thing. */
|
|
|
|
|
assemble_external (decl);
|
1993-03-04 22:20:14 +01:00
|
|
|
|
|
2001-04-29 02:12:51 +02:00
|
|
|
|
/* Output a constant to reference this address. */
|
|
|
|
|
output_constant (exp, int_size_in_bytes (string_type_node));
|
1992-04-29 01:43:21 +02:00
|
|
|
|
}
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
static void
|
1992-04-29 01:43:21 +02:00
|
|
|
|
handle_impent (impent)
|
|
|
|
|
struct imp_entry *impent;
|
|
|
|
|
{
|
|
|
|
|
implementation_context = impent->imp_context;
|
|
|
|
|
implementation_template = impent->imp_template;
|
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (TREE_CODE (impent->imp_context) == CLASS_IMPLEMENTATION_TYPE)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *class_name =
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_NAME (impent->imp_context));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
char *string = (char *) alloca (strlen (class_name) + 30);
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
/* Grossly unportable.
|
|
|
|
|
People should know better than to assume
|
|
|
|
|
such things about assembler syntax! */
|
|
|
|
|
sprintf (string, ".objc_class_name_%s=0", class_name);
|
|
|
|
|
assemble_asm (my_build_string (strlen (string) + 1, string));
|
|
|
|
|
|
|
|
|
|
sprintf (string, ".globl .objc_class_name_%s", class_name);
|
|
|
|
|
assemble_asm (my_build_string (strlen (string) + 1, string));
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
sprintf (string, "%sobjc_class_name_%s",
|
|
|
|
|
(flag_next_runtime ? "." : "__"), class_name);
|
|
|
|
|
assemble_global (string);
|
|
|
|
|
assemble_label (string);
|
|
|
|
|
}
|
1992-04-29 01:43:21 +02:00
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else if (TREE_CODE (impent->imp_context) == CATEGORY_IMPLEMENTATION_TYPE)
|
1992-04-29 01:43:21 +02:00
|
|
|
|
{
|
objc-act.c (objc_tree_code_type, [...]): Constify.
* objc/objc-act.c (objc_tree_code_type, objc_tree_code_length,
objc_tree_code_name, synth_id_with_class_suffix, warn_with_method,
error_with_ivar, gen_declarator, create_builtin_decl,
my_build_string, generate_descriptor_table, generate_ivars_list,
generate_dispatch_table, check_protocols, TAG_GETCLASS,
TAG_GETMETACLASS, TAG_MSGSEND, TAG_MSGSENDSUPER, TAG_EXECCLASS,
dump_base_name, lang_decode_option, build_encode_expr,
start_class, finish_class, encode_pointer, really_start_method,
gen_declaration, dump_interface, handle_class_ref, handle_impent):
Constify.
(objc_demangle, objc_printable_name, generate_struct_by_value_array):
Add static prototypes.
(build_objc_string_decl, build_selector_reference_decl,
encode_bitfield, build_class_reference_decl): Remove unused
parameter, all callers changed.
(maybe_objc_method_name): Mark with ATTRIBUTE_UNUSED.
(objc_printable_name): Likewise. Change second parameter to type int.
(init_objc): Use memcpy, not bcopy, to avoid casts.
From-SVN: r29077
1999-09-03 07:32:20 +02:00
|
|
|
|
const char *class_name =
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_NAME (impent->imp_context));
|
|
|
|
|
const char *class_super_name =
|
|
|
|
|
IDENTIFIER_POINTER (CLASS_SUPER_NAME (impent->imp_context));
|
1993-04-10 01:12:37 +02:00
|
|
|
|
char *string = (char *) alloca (strlen (class_name)
|
|
|
|
|
+ strlen (class_super_name) + 30);
|
1992-04-29 01:43:21 +02:00
|
|
|
|
|
|
|
|
|
/* Do the same for categories. Even though no references to these
|
1993-04-10 01:12:37 +02:00
|
|
|
|
symbols are generated automatically by the compiler, it gives
|
1996-07-04 00:07:53 +02:00
|
|
|
|
you a handle to pull them into an archive by hand. */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
if (flag_next_runtime)
|
|
|
|
|
{
|
|
|
|
|
/* Grossly unportable. */
|
|
|
|
|
sprintf (string, ".objc_category_name_%s_%s=0",
|
|
|
|
|
class_name, class_super_name);
|
|
|
|
|
assemble_asm (my_build_string (strlen (string) + 1, string));
|
|
|
|
|
|
|
|
|
|
sprintf (string, ".globl .objc_category_name_%s_%s",
|
|
|
|
|
class_name, class_super_name);
|
|
|
|
|
assemble_asm (my_build_string (strlen (string) + 1, string));
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1993-04-10 01:12:37 +02:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
sprintf (string, "%sobjc_category_name_%s_%s",
|
|
|
|
|
(flag_next_runtime ? "." : "__"),
|
|
|
|
|
class_name, class_super_name);
|
|
|
|
|
assemble_global (string);
|
|
|
|
|
assemble_label (string);
|
|
|
|
|
}
|
1992-04-29 01:43:21 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
objc_debug (fp)
|
|
|
|
|
FILE *fp;
|
|
|
|
|
{
|
|
|
|
|
char *buf = (char *)xmalloc (256);
|
|
|
|
|
|
|
|
|
|
{ /* dump function prototypes */
|
1993-04-10 01:12:37 +02:00
|
|
|
|
tree loop = UOBJC_MODULES_decl;
|
1992-01-18 00:15:38 +01:00
|
|
|
|
|
|
|
|
|
fprintf (fp, "\n\nfunction prototypes:\n");
|
|
|
|
|
while (loop)
|
|
|
|
|
{
|
|
|
|
|
if (TREE_CODE (loop) == FUNCTION_DECL && DECL_INITIAL (loop))
|
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* We have a function definition: generate prototype. */
|
2001-03-28 04:49:19 +02:00
|
|
|
|
fprintf (fp, "%s;\n", gen_declaration (loop, errbuf));
|
1992-01-18 00:15:38 +01:00
|
|
|
|
}
|
|
|
|
|
loop = TREE_CHAIN (loop);
|
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
{
|
1996-07-04 00:07:53 +02:00
|
|
|
|
/* Dump global chains. */
|
1992-01-18 00:15:38 +01:00
|
|
|
|
tree loop;
|
|
|
|
|
int i, index = 0, offset = 0;
|
|
|
|
|
hash hashlist;
|
|
|
|
|
|
|
|
|
|
for (i = 0; i < SIZEHASHTABLE; i++)
|
|
|
|
|
{
|
|
|
|
|
if (hashlist = nst_method_hash_list[i])
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "\n\nnst_method_hash_list[%d]:\n", i);
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "-%s;\n", gen_method_decl (hashlist->key, buf));
|
|
|
|
|
hashlist = hashlist->next;
|
|
|
|
|
}
|
|
|
|
|
while (hashlist);
|
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
for (i = 0; i < SIZEHASHTABLE; i++)
|
|
|
|
|
{
|
|
|
|
|
if (hashlist = cls_method_hash_list[i])
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "\n\ncls_method_hash_list[%d]:\n", i);
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "-%s;\n", gen_method_decl (hashlist->key, buf));
|
|
|
|
|
hashlist = hashlist->next;
|
|
|
|
|
}
|
|
|
|
|
while (hashlist);
|
|
|
|
|
}
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
fprintf (fp, "\nsel_refdef_chain:\n");
|
|
|
|
|
for (loop = sel_refdef_chain; loop; loop = TREE_CHAIN (loop))
|
|
|
|
|
{
|
|
|
|
|
fprintf (fp, "(index: %4d offset: %4d) %s\n", index, offset,
|
|
|
|
|
IDENTIFIER_POINTER (TREE_VALUE (loop)));
|
|
|
|
|
index++;
|
|
|
|
|
/* add one for the '\0' character */
|
|
|
|
|
offset += IDENTIFIER_LENGTH (TREE_VALUE (loop)) + 1;
|
|
|
|
|
}
|
Numerous formatting changes.
(NULLT): Deleted; all uses changed to NULL_TREE.
(get_{static,object}_reference, objc_add_static_instance):
Use push_obstacks instead of saving obstacks manually.
(build_{selector,class}_reference_decl): Likewise.
(build_objc_string_decl, build_protocol_reference): Likewise.
(comp_{method,proto}_with_proto): Likewise.
(create_builtin_decl, synth_module_prologue): Set DECL_ARTIFICIAL for internal
objects.
(build_{selector,class}_reference_decl, add_objc_decls): Likewise.
(generate_objc_symtab_decl, build_module_descriptor): Likewise.
(build_protocol_reference): Likewise.
(build_objc_string_decl, synch_forward_declarations): Likewise.
Delete call to end_temporary_allocation.
(generate_static_references, generate_strings): Likewise.
(build_selector_translation_table, generate_category): Likewise.
(generate_{ivars,protocol}_list, build_protocol_reference): Likewise.
(build_objc_string_object): If next_runtime, put everything in
permanent obstack.
(objc_add_static_instance): Use build_decl instead of start_decl
and finish_decl_top_level.
(build_{class_reference,objc_string}_decl): Clear DECL_CONTEXT.
(start_class): Exit with FATAL_EXIT_CODE, not 1.
(add_objc_decls): Don't set DECL_IN_SYSTEM_HEADER.
From-SVN: r9764
1995-05-22 23:02:40 +02:00
|
|
|
|
|
1992-01-18 00:15:38 +01:00
|
|
|
|
fprintf (fp, "\n (max_selector_index: %4d.\n", max_selector_index);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
print_lang_statistics ()
|
|
|
|
|
{
|
|
|
|
|
}
|
2000-04-12 09:22:32 +02:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
ggc_mark_imp_list (arg)
|
|
|
|
|
void *arg;
|
|
|
|
|
{
|
|
|
|
|
struct imp_entry *impent;
|
|
|
|
|
|
|
|
|
|
for (impent = *(struct imp_entry **)arg; impent; impent = impent->next)
|
|
|
|
|
{
|
|
|
|
|
ggc_mark_tree (impent->imp_context);
|
|
|
|
|
ggc_mark_tree (impent->imp_template);
|
|
|
|
|
ggc_mark_tree (impent->class_decl);
|
|
|
|
|
ggc_mark_tree (impent->meta_decl);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
ggc_mark_hash_table (arg)
|
|
|
|
|
void *arg;
|
|
|
|
|
{
|
|
|
|
|
hash *hash_table = *(hash **)arg;
|
|
|
|
|
hash hst;
|
|
|
|
|
attr list;
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
if (hash_table == NULL)
|
|
|
|
|
return;
|
|
|
|
|
for (i = 0; i < SIZEHASHTABLE; i++)
|
|
|
|
|
for (hst = hash_table [i]; hst; hst = hst->next)
|
|
|
|
|
{
|
|
|
|
|
ggc_mark_tree (hst->key);
|
|
|
|
|
for (list = hst->list; list; list = list->next)
|
|
|
|
|
ggc_mark_tree (list->value);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Add GC roots for variables local to this file. */
|
|
|
|
|
static void
|
|
|
|
|
objc_act_parse_init ()
|
|
|
|
|
{
|
|
|
|
|
ggc_add_tree_root (&objc_ellipsis_node, 1);
|
|
|
|
|
ggc_add_tree_root (objc_global_trees, OCTI_MAX);
|
|
|
|
|
ggc_add_root (&imp_list, 1, sizeof imp_list, ggc_mark_imp_list);
|
|
|
|
|
ggc_add_root (&nst_method_hash_list, 1, sizeof nst_method_hash_list, ggc_mark_hash_table);
|
|
|
|
|
ggc_add_root (&cls_method_hash_list, 1, sizeof cls_method_hash_list, ggc_mark_hash_table);
|
|
|
|
|
}
|
2000-06-20 00:28:28 +02:00
|
|
|
|
|
|
|
|
|
/* Look up ID as an instance variable. */
|
|
|
|
|
tree
|
|
|
|
|
lookup_objc_ivar (id)
|
|
|
|
|
tree id;
|
|
|
|
|
{
|
|
|
|
|
tree decl;
|
|
|
|
|
|
|
|
|
|
if (objc_receiver_context && !strcmp (IDENTIFIER_POINTER (id), "super"))
|
|
|
|
|
/* we have a message to super */
|
|
|
|
|
return get_super_receiver ();
|
|
|
|
|
else if (objc_method_context && (decl = is_ivar (objc_ivar_chain, id)))
|
|
|
|
|
{
|
|
|
|
|
if (is_private (decl))
|
|
|
|
|
return error_mark_node;
|
|
|
|
|
else
|
|
|
|
|
return build_ivar_reference (id);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
Integrated preprocessor.
top level:
* Makefile.in: Remove all references to c-parse.gperf,
c-gperf.h, and c-parse.h. Remove -d from yacc command line
generating c-parse.c. Update dependencies.
* c-parse.gperf, c-gperf.h: Delete.
* c-common.c: Don't define parse_options, cpp_token, yy_cur,
yy_lim, or yy_get_token. Don't define get_directive_line if
USE_CPPLIB.
* c-common.h: Add multiple include guard. Define RID values
for every keyword in C, C++, and Objective C. Put all the
modifiers first.
(struct c_fileinfo, get_fileinfo, dump_time_statistics): New.
* c-decl.c (c_decode_option): Handle -lang-objc here.
(print_lang_identifier): Handle C_IS_RESERVED_WORD case.
(grokdeclarator): Adjust for new RID scheme.
(extract_interface_info): New stub.
* c-lang.c: Don't declare yy_cur or parse_options.
(lang_init_options): Call cpp_init. Don't call
cpp_options_init.
(lang_init): Don't call check_newline if USE_CPPLIB.
* c-lex.c: Don't include c-parse.h. Do include timevar.h.
Elide lots of unnecessary code if USE_CPPLIB. Delete code
rendered unnecessary by new architecture. Move routines not
shared with C++ to c-parse.in. Maintain a local idea of the
line number. Handle C++ as well as C.
[USE_CPPLIB]: Declare and register callbacks for #ident and
for entering/leaving files.
(init_c_lex, c_lex): Are now the entry points to this file.
(check_newline): Break out directive handling to
process_directive.
(read_ucs, is_extended_char, utf8_extend_token): Moved here
from C++ front end.
(readescape, parse_float): Overhaul.
(lex_number, lex_string, lex_charconst): Break out of c_lex
(n'ee yylex).
(get_fileinfo, update_header_times, dump_one_header,
dump_time_statistics): New and/or moved here from C++.
Support per-file data needed by C++ and per-header timing
statistics (C++ only, at the moment).
* c-lex.h: Update prototypes. Add multiple include guard.
* c-tree.h (struct lang_identifier): Add rid_code field.
(C_IS_RESERVED_WORD, C_RID_CODE): New.
* c-parse.in: Include c-pragma.h. Remove unnecesary calls to
reinit_parse_for_function and/or position_after_white_space.
(save_filename, save_lineno): Look ahead before saving.
(label -> identifier ':'): Save file and line before shifting ':'.
(reservedwords): No need to call get_identifier.
(init_parse, finish_parse, yyerror, yylex, yyprint,
make_pointer_declarator): Are now here for C/ObjC.
(rid_to_yy): Conversion table from RID constants to Yacc codes.
* c-pragma.c: Rewrite parsing logic to fit with cpplib's
#pragma registry. Provide dummy implementation of that
interface if !USE_CPPLIB.
* c-pragma.h: Update to match.
* flags.h: Add multiple include guard.
(flag_detailed_statistics): Moved here from C++.
* toplev.c: Define flag_detailed_statistics.
* gcc.c (C specs): Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* timevar.def (TV_CPP, TV_LEX): New.
* timevar.h: Add multiple include guard.
* objc/lang-specs.h: Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* objc/objc-act.c: Don't mention yy_cur or parse_options.
Initialize cpplib properly. Force lineno to 0 after first
call to check_newline. Don't handle -lang-objc here.
Move forget_protocol_qualifiers and remember_protocol_qualifiers here.
cp:
* Make-lang.in, Makefile.in: Remove all references to input.c,
gxx.gperf, and hash.h. Add ../c-lex.o to C_OBJS.
* gxx.gperf, hash.h, input.c: Delete.
* lang-specs.h: Pass -lang-c++ to cc1plus so cpplib is
initialized properly.
* class.c (fixup_pending_inline): Take a tree, not a
struct pending_inline *. All callers changed.
(init_class_processing): Set RID_PUBLIC, RID_PRIVATE,
RID_PROTECTED entries in ridpointers[] array here.
* decl.c (duplicate_decls): Do not refer to struct
pending_inline.
(record_builtin_type, init_decl_processing): Use RID_MAX not
CP_RID_MAX.
(grokdeclarator): Use C_IS_RESERVED_WORD.
* decl2.c (lang_decode_option): Ignore -lang-c++ for sake of
cpplib.
(grok_x_components): Do not inspect pending_inlines chain.
* cp-tree.h (struct lang_identifier): Add rid_code entry.
(C_IS_RESERVED_WORD, C_RID_CODE, C_RID_YYCODE): New.
(flag_no_gnu_keywords, flag_operator_names, rid_to_yy): Declare.
(DEFARG_LENGTH, struct pending_inline, TIME_IDENTIFIER_TIME,
TIME_IDENTIFIER_FILEINFO): Kill.
Update prototypes.
* lex.h: Expunge cp_rid. Rewrite RIDBIT macros to use just a
single 32-bit word.
* parse.y: Call do_pending_inlines unconditionally.
reinit_parse_for_method is now snarf_method. fn.defpen is no
longer necessary. Remove unnecessary <itype> annotation on
SCOPE. Do not refer to end_of_file or struct pending_inline.
* semantics.c (begin_inline_definitions): Call
do_pending_inlines unconditionally.
* lex.c: Remove all code now shared with C front end.
Initialize cpplib properly if USE_CPPLIB. Put reserved words
into the get_identifier table. Rewrite pragma handling to
work with the registry. Move code to save tokens for later
processing to spew.c.
* spew.c: Rewrite everything in terms of token streams instead
of text. Move routines here from lex.c / input.c as
appropriate. GC-mark trees hanging off the pending inlines
chain.
testsuite:
* g++.old-deja/g++.benjamin/13478.C: Put meaningful tags on
ERROR markers.
* g++.old-deja/g++.brendan/crash8.C: Move ERROR marker up one line.
* gcc.dg/c99-array-nonobj-1.c: Don't expect func[] cases to fail.
* gcc.dg/wtr-label-1.c: Don't use unconstrained .* in error regexps.
* gcc.dg/wtr-suffix-1.c: Correct error regexps.
* gcc.dg/cpp/unc1.c, gcc.dg/cpp/unc2.c, gcc.dg/cpp/unc3.c:
Preprocess only.
* gcc.dg/cpp/unc4.c: Adjust line number in dg-error line.
* gcc.dg/noncompile/const-ll-1.c: Generalize error regexp.
From-SVN: r36216
2000-09-07 02:37:14 +02:00
|
|
|
|
|
2001-03-02 01:40:00 +01:00
|
|
|
|
/* Parser callbacks.
|
|
|
|
|
Some ObjC keywords are reserved only in a particular context:
|
|
|
|
|
in out inout bycopy byref oneway.
|
|
|
|
|
We have to save and restore the IDENTIFIER_NODEs that describe
|
|
|
|
|
them as keywords, when appropriate. */
|
|
|
|
|
|
|
|
|
|
#define N_PQ 6
|
|
|
|
|
static tree saved_pq[N_PQ];
|
|
|
|
|
static tree saved_not_pq[N_PQ];
|
|
|
|
|
static const char *const pq_strings[N_PQ] = {
|
|
|
|
|
"bycopy", "byref", "in", "inout", "oneway", "out"
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
save_and_forget_protocol_qualifiers ()
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
for (i = 0; i < N_PQ; i++)
|
|
|
|
|
saved_pq[i] = set_identifier (pq_strings[i], NULL_TREE);
|
|
|
|
|
|
|
|
|
|
ggc_add_tree_root (saved_pq, N_PQ);
|
|
|
|
|
ggc_add_tree_root (saved_not_pq, N_PQ);
|
|
|
|
|
}
|
|
|
|
|
|
Integrated preprocessor.
top level:
* Makefile.in: Remove all references to c-parse.gperf,
c-gperf.h, and c-parse.h. Remove -d from yacc command line
generating c-parse.c. Update dependencies.
* c-parse.gperf, c-gperf.h: Delete.
* c-common.c: Don't define parse_options, cpp_token, yy_cur,
yy_lim, or yy_get_token. Don't define get_directive_line if
USE_CPPLIB.
* c-common.h: Add multiple include guard. Define RID values
for every keyword in C, C++, and Objective C. Put all the
modifiers first.
(struct c_fileinfo, get_fileinfo, dump_time_statistics): New.
* c-decl.c (c_decode_option): Handle -lang-objc here.
(print_lang_identifier): Handle C_IS_RESERVED_WORD case.
(grokdeclarator): Adjust for new RID scheme.
(extract_interface_info): New stub.
* c-lang.c: Don't declare yy_cur or parse_options.
(lang_init_options): Call cpp_init. Don't call
cpp_options_init.
(lang_init): Don't call check_newline if USE_CPPLIB.
* c-lex.c: Don't include c-parse.h. Do include timevar.h.
Elide lots of unnecessary code if USE_CPPLIB. Delete code
rendered unnecessary by new architecture. Move routines not
shared with C++ to c-parse.in. Maintain a local idea of the
line number. Handle C++ as well as C.
[USE_CPPLIB]: Declare and register callbacks for #ident and
for entering/leaving files.
(init_c_lex, c_lex): Are now the entry points to this file.
(check_newline): Break out directive handling to
process_directive.
(read_ucs, is_extended_char, utf8_extend_token): Moved here
from C++ front end.
(readescape, parse_float): Overhaul.
(lex_number, lex_string, lex_charconst): Break out of c_lex
(n'ee yylex).
(get_fileinfo, update_header_times, dump_one_header,
dump_time_statistics): New and/or moved here from C++.
Support per-file data needed by C++ and per-header timing
statistics (C++ only, at the moment).
* c-lex.h: Update prototypes. Add multiple include guard.
* c-tree.h (struct lang_identifier): Add rid_code field.
(C_IS_RESERVED_WORD, C_RID_CODE): New.
* c-parse.in: Include c-pragma.h. Remove unnecesary calls to
reinit_parse_for_function and/or position_after_white_space.
(save_filename, save_lineno): Look ahead before saving.
(label -> identifier ':'): Save file and line before shifting ':'.
(reservedwords): No need to call get_identifier.
(init_parse, finish_parse, yyerror, yylex, yyprint,
make_pointer_declarator): Are now here for C/ObjC.
(rid_to_yy): Conversion table from RID constants to Yacc codes.
* c-pragma.c: Rewrite parsing logic to fit with cpplib's
#pragma registry. Provide dummy implementation of that
interface if !USE_CPPLIB.
* c-pragma.h: Update to match.
* flags.h: Add multiple include guard.
(flag_detailed_statistics): Moved here from C++.
* toplev.c: Define flag_detailed_statistics.
* gcc.c (C specs): Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* timevar.def (TV_CPP, TV_LEX): New.
* timevar.h: Add multiple include guard.
* objc/lang-specs.h: Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* objc/objc-act.c: Don't mention yy_cur or parse_options.
Initialize cpplib properly. Force lineno to 0 after first
call to check_newline. Don't handle -lang-objc here.
Move forget_protocol_qualifiers and remember_protocol_qualifiers here.
cp:
* Make-lang.in, Makefile.in: Remove all references to input.c,
gxx.gperf, and hash.h. Add ../c-lex.o to C_OBJS.
* gxx.gperf, hash.h, input.c: Delete.
* lang-specs.h: Pass -lang-c++ to cc1plus so cpplib is
initialized properly.
* class.c (fixup_pending_inline): Take a tree, not a
struct pending_inline *. All callers changed.
(init_class_processing): Set RID_PUBLIC, RID_PRIVATE,
RID_PROTECTED entries in ridpointers[] array here.
* decl.c (duplicate_decls): Do not refer to struct
pending_inline.
(record_builtin_type, init_decl_processing): Use RID_MAX not
CP_RID_MAX.
(grokdeclarator): Use C_IS_RESERVED_WORD.
* decl2.c (lang_decode_option): Ignore -lang-c++ for sake of
cpplib.
(grok_x_components): Do not inspect pending_inlines chain.
* cp-tree.h (struct lang_identifier): Add rid_code entry.
(C_IS_RESERVED_WORD, C_RID_CODE, C_RID_YYCODE): New.
(flag_no_gnu_keywords, flag_operator_names, rid_to_yy): Declare.
(DEFARG_LENGTH, struct pending_inline, TIME_IDENTIFIER_TIME,
TIME_IDENTIFIER_FILEINFO): Kill.
Update prototypes.
* lex.h: Expunge cp_rid. Rewrite RIDBIT macros to use just a
single 32-bit word.
* parse.y: Call do_pending_inlines unconditionally.
reinit_parse_for_method is now snarf_method. fn.defpen is no
longer necessary. Remove unnecessary <itype> annotation on
SCOPE. Do not refer to end_of_file or struct pending_inline.
* semantics.c (begin_inline_definitions): Call
do_pending_inlines unconditionally.
* lex.c: Remove all code now shared with C front end.
Initialize cpplib properly if USE_CPPLIB. Put reserved words
into the get_identifier table. Rewrite pragma handling to
work with the registry. Move code to save tokens for later
processing to spew.c.
* spew.c: Rewrite everything in terms of token streams instead
of text. Move routines here from lex.c / input.c as
appropriate. GC-mark trees hanging off the pending inlines
chain.
testsuite:
* g++.old-deja/g++.benjamin/13478.C: Put meaningful tags on
ERROR markers.
* g++.old-deja/g++.brendan/crash8.C: Move ERROR marker up one line.
* gcc.dg/c99-array-nonobj-1.c: Don't expect func[] cases to fail.
* gcc.dg/wtr-label-1.c: Don't use unconstrained .* in error regexps.
* gcc.dg/wtr-suffix-1.c: Correct error regexps.
* gcc.dg/cpp/unc1.c, gcc.dg/cpp/unc2.c, gcc.dg/cpp/unc3.c:
Preprocess only.
* gcc.dg/cpp/unc4.c: Adjust line number in dg-error line.
* gcc.dg/noncompile/const-ll-1.c: Generalize error regexp.
From-SVN: r36216
2000-09-07 02:37:14 +02:00
|
|
|
|
void
|
|
|
|
|
forget_protocol_qualifiers ()
|
|
|
|
|
{
|
2001-03-02 01:40:00 +01:00
|
|
|
|
int i;
|
|
|
|
|
for (i = 0; i < N_PQ; i++)
|
|
|
|
|
{
|
|
|
|
|
set_identifier (pq_strings[i], saved_not_pq[i]);
|
|
|
|
|
saved_not_pq[i] = NULL_TREE;
|
|
|
|
|
}
|
Integrated preprocessor.
top level:
* Makefile.in: Remove all references to c-parse.gperf,
c-gperf.h, and c-parse.h. Remove -d from yacc command line
generating c-parse.c. Update dependencies.
* c-parse.gperf, c-gperf.h: Delete.
* c-common.c: Don't define parse_options, cpp_token, yy_cur,
yy_lim, or yy_get_token. Don't define get_directive_line if
USE_CPPLIB.
* c-common.h: Add multiple include guard. Define RID values
for every keyword in C, C++, and Objective C. Put all the
modifiers first.
(struct c_fileinfo, get_fileinfo, dump_time_statistics): New.
* c-decl.c (c_decode_option): Handle -lang-objc here.
(print_lang_identifier): Handle C_IS_RESERVED_WORD case.
(grokdeclarator): Adjust for new RID scheme.
(extract_interface_info): New stub.
* c-lang.c: Don't declare yy_cur or parse_options.
(lang_init_options): Call cpp_init. Don't call
cpp_options_init.
(lang_init): Don't call check_newline if USE_CPPLIB.
* c-lex.c: Don't include c-parse.h. Do include timevar.h.
Elide lots of unnecessary code if USE_CPPLIB. Delete code
rendered unnecessary by new architecture. Move routines not
shared with C++ to c-parse.in. Maintain a local idea of the
line number. Handle C++ as well as C.
[USE_CPPLIB]: Declare and register callbacks for #ident and
for entering/leaving files.
(init_c_lex, c_lex): Are now the entry points to this file.
(check_newline): Break out directive handling to
process_directive.
(read_ucs, is_extended_char, utf8_extend_token): Moved here
from C++ front end.
(readescape, parse_float): Overhaul.
(lex_number, lex_string, lex_charconst): Break out of c_lex
(n'ee yylex).
(get_fileinfo, update_header_times, dump_one_header,
dump_time_statistics): New and/or moved here from C++.
Support per-file data needed by C++ and per-header timing
statistics (C++ only, at the moment).
* c-lex.h: Update prototypes. Add multiple include guard.
* c-tree.h (struct lang_identifier): Add rid_code field.
(C_IS_RESERVED_WORD, C_RID_CODE): New.
* c-parse.in: Include c-pragma.h. Remove unnecesary calls to
reinit_parse_for_function and/or position_after_white_space.
(save_filename, save_lineno): Look ahead before saving.
(label -> identifier ':'): Save file and line before shifting ':'.
(reservedwords): No need to call get_identifier.
(init_parse, finish_parse, yyerror, yylex, yyprint,
make_pointer_declarator): Are now here for C/ObjC.
(rid_to_yy): Conversion table from RID constants to Yacc codes.
* c-pragma.c: Rewrite parsing logic to fit with cpplib's
#pragma registry. Provide dummy implementation of that
interface if !USE_CPPLIB.
* c-pragma.h: Update to match.
* flags.h: Add multiple include guard.
(flag_detailed_statistics): Moved here from C++.
* toplev.c: Define flag_detailed_statistics.
* gcc.c (C specs): Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* timevar.def (TV_CPP, TV_LEX): New.
* timevar.h: Add multiple include guard.
* objc/lang-specs.h: Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* objc/objc-act.c: Don't mention yy_cur or parse_options.
Initialize cpplib properly. Force lineno to 0 after first
call to check_newline. Don't handle -lang-objc here.
Move forget_protocol_qualifiers and remember_protocol_qualifiers here.
cp:
* Make-lang.in, Makefile.in: Remove all references to input.c,
gxx.gperf, and hash.h. Add ../c-lex.o to C_OBJS.
* gxx.gperf, hash.h, input.c: Delete.
* lang-specs.h: Pass -lang-c++ to cc1plus so cpplib is
initialized properly.
* class.c (fixup_pending_inline): Take a tree, not a
struct pending_inline *. All callers changed.
(init_class_processing): Set RID_PUBLIC, RID_PRIVATE,
RID_PROTECTED entries in ridpointers[] array here.
* decl.c (duplicate_decls): Do not refer to struct
pending_inline.
(record_builtin_type, init_decl_processing): Use RID_MAX not
CP_RID_MAX.
(grokdeclarator): Use C_IS_RESERVED_WORD.
* decl2.c (lang_decode_option): Ignore -lang-c++ for sake of
cpplib.
(grok_x_components): Do not inspect pending_inlines chain.
* cp-tree.h (struct lang_identifier): Add rid_code entry.
(C_IS_RESERVED_WORD, C_RID_CODE, C_RID_YYCODE): New.
(flag_no_gnu_keywords, flag_operator_names, rid_to_yy): Declare.
(DEFARG_LENGTH, struct pending_inline, TIME_IDENTIFIER_TIME,
TIME_IDENTIFIER_FILEINFO): Kill.
Update prototypes.
* lex.h: Expunge cp_rid. Rewrite RIDBIT macros to use just a
single 32-bit word.
* parse.y: Call do_pending_inlines unconditionally.
reinit_parse_for_method is now snarf_method. fn.defpen is no
longer necessary. Remove unnecessary <itype> annotation on
SCOPE. Do not refer to end_of_file or struct pending_inline.
* semantics.c (begin_inline_definitions): Call
do_pending_inlines unconditionally.
* lex.c: Remove all code now shared with C front end.
Initialize cpplib properly if USE_CPPLIB. Put reserved words
into the get_identifier table. Rewrite pragma handling to
work with the registry. Move code to save tokens for later
processing to spew.c.
* spew.c: Rewrite everything in terms of token streams instead
of text. Move routines here from lex.c / input.c as
appropriate. GC-mark trees hanging off the pending inlines
chain.
testsuite:
* g++.old-deja/g++.benjamin/13478.C: Put meaningful tags on
ERROR markers.
* g++.old-deja/g++.brendan/crash8.C: Move ERROR marker up one line.
* gcc.dg/c99-array-nonobj-1.c: Don't expect func[] cases to fail.
* gcc.dg/wtr-label-1.c: Don't use unconstrained .* in error regexps.
* gcc.dg/wtr-suffix-1.c: Correct error regexps.
* gcc.dg/cpp/unc1.c, gcc.dg/cpp/unc2.c, gcc.dg/cpp/unc3.c:
Preprocess only.
* gcc.dg/cpp/unc4.c: Adjust line number in dg-error line.
* gcc.dg/noncompile/const-ll-1.c: Generalize error regexp.
From-SVN: r36216
2000-09-07 02:37:14 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
remember_protocol_qualifiers ()
|
|
|
|
|
{
|
2001-03-02 01:40:00 +01:00
|
|
|
|
int i;
|
|
|
|
|
for (i = 0; i < N_PQ; i++)
|
|
|
|
|
saved_not_pq[i] = set_identifier (pq_strings[i], saved_pq[i]);
|
Integrated preprocessor.
top level:
* Makefile.in: Remove all references to c-parse.gperf,
c-gperf.h, and c-parse.h. Remove -d from yacc command line
generating c-parse.c. Update dependencies.
* c-parse.gperf, c-gperf.h: Delete.
* c-common.c: Don't define parse_options, cpp_token, yy_cur,
yy_lim, or yy_get_token. Don't define get_directive_line if
USE_CPPLIB.
* c-common.h: Add multiple include guard. Define RID values
for every keyword in C, C++, and Objective C. Put all the
modifiers first.
(struct c_fileinfo, get_fileinfo, dump_time_statistics): New.
* c-decl.c (c_decode_option): Handle -lang-objc here.
(print_lang_identifier): Handle C_IS_RESERVED_WORD case.
(grokdeclarator): Adjust for new RID scheme.
(extract_interface_info): New stub.
* c-lang.c: Don't declare yy_cur or parse_options.
(lang_init_options): Call cpp_init. Don't call
cpp_options_init.
(lang_init): Don't call check_newline if USE_CPPLIB.
* c-lex.c: Don't include c-parse.h. Do include timevar.h.
Elide lots of unnecessary code if USE_CPPLIB. Delete code
rendered unnecessary by new architecture. Move routines not
shared with C++ to c-parse.in. Maintain a local idea of the
line number. Handle C++ as well as C.
[USE_CPPLIB]: Declare and register callbacks for #ident and
for entering/leaving files.
(init_c_lex, c_lex): Are now the entry points to this file.
(check_newline): Break out directive handling to
process_directive.
(read_ucs, is_extended_char, utf8_extend_token): Moved here
from C++ front end.
(readescape, parse_float): Overhaul.
(lex_number, lex_string, lex_charconst): Break out of c_lex
(n'ee yylex).
(get_fileinfo, update_header_times, dump_one_header,
dump_time_statistics): New and/or moved here from C++.
Support per-file data needed by C++ and per-header timing
statistics (C++ only, at the moment).
* c-lex.h: Update prototypes. Add multiple include guard.
* c-tree.h (struct lang_identifier): Add rid_code field.
(C_IS_RESERVED_WORD, C_RID_CODE): New.
* c-parse.in: Include c-pragma.h. Remove unnecesary calls to
reinit_parse_for_function and/or position_after_white_space.
(save_filename, save_lineno): Look ahead before saving.
(label -> identifier ':'): Save file and line before shifting ':'.
(reservedwords): No need to call get_identifier.
(init_parse, finish_parse, yyerror, yylex, yyprint,
make_pointer_declarator): Are now here for C/ObjC.
(rid_to_yy): Conversion table from RID constants to Yacc codes.
* c-pragma.c: Rewrite parsing logic to fit with cpplib's
#pragma registry. Provide dummy implementation of that
interface if !USE_CPPLIB.
* c-pragma.h: Update to match.
* flags.h: Add multiple include guard.
(flag_detailed_statistics): Moved here from C++.
* toplev.c: Define flag_detailed_statistics.
* gcc.c (C specs): Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* timevar.def (TV_CPP, TV_LEX): New.
* timevar.h: Add multiple include guard.
* objc/lang-specs.h: Use %(trad_capable_cpp) for -E|-M|-MM case
#if USE_CPPLIB.
* objc/objc-act.c: Don't mention yy_cur or parse_options.
Initialize cpplib properly. Force lineno to 0 after first
call to check_newline. Don't handle -lang-objc here.
Move forget_protocol_qualifiers and remember_protocol_qualifiers here.
cp:
* Make-lang.in, Makefile.in: Remove all references to input.c,
gxx.gperf, and hash.h. Add ../c-lex.o to C_OBJS.
* gxx.gperf, hash.h, input.c: Delete.
* lang-specs.h: Pass -lang-c++ to cc1plus so cpplib is
initialized properly.
* class.c (fixup_pending_inline): Take a tree, not a
struct pending_inline *. All callers changed.
(init_class_processing): Set RID_PUBLIC, RID_PRIVATE,
RID_PROTECTED entries in ridpointers[] array here.
* decl.c (duplicate_decls): Do not refer to struct
pending_inline.
(record_builtin_type, init_decl_processing): Use RID_MAX not
CP_RID_MAX.
(grokdeclarator): Use C_IS_RESERVED_WORD.
* decl2.c (lang_decode_option): Ignore -lang-c++ for sake of
cpplib.
(grok_x_components): Do not inspect pending_inlines chain.
* cp-tree.h (struct lang_identifier): Add rid_code entry.
(C_IS_RESERVED_WORD, C_RID_CODE, C_RID_YYCODE): New.
(flag_no_gnu_keywords, flag_operator_names, rid_to_yy): Declare.
(DEFARG_LENGTH, struct pending_inline, TIME_IDENTIFIER_TIME,
TIME_IDENTIFIER_FILEINFO): Kill.
Update prototypes.
* lex.h: Expunge cp_rid. Rewrite RIDBIT macros to use just a
single 32-bit word.
* parse.y: Call do_pending_inlines unconditionally.
reinit_parse_for_method is now snarf_method. fn.defpen is no
longer necessary. Remove unnecessary <itype> annotation on
SCOPE. Do not refer to end_of_file or struct pending_inline.
* semantics.c (begin_inline_definitions): Call
do_pending_inlines unconditionally.
* lex.c: Remove all code now shared with C front end.
Initialize cpplib properly if USE_CPPLIB. Put reserved words
into the get_identifier table. Rewrite pragma handling to
work with the registry. Move code to save tokens for later
processing to spew.c.
* spew.c: Rewrite everything in terms of token streams instead
of text. Move routines here from lex.c / input.c as
appropriate. GC-mark trees hanging off the pending inlines
chain.
testsuite:
* g++.old-deja/g++.benjamin/13478.C: Put meaningful tags on
ERROR markers.
* g++.old-deja/g++.brendan/crash8.C: Move ERROR marker up one line.
* gcc.dg/c99-array-nonobj-1.c: Don't expect func[] cases to fail.
* gcc.dg/wtr-label-1.c: Don't use unconstrained .* in error regexps.
* gcc.dg/wtr-suffix-1.c: Correct error regexps.
* gcc.dg/cpp/unc1.c, gcc.dg/cpp/unc2.c, gcc.dg/cpp/unc3.c:
Preprocess only.
* gcc.dg/cpp/unc4.c: Adjust line number in dg-error line.
* gcc.dg/noncompile/const-ll-1.c: Generalize error regexp.
From-SVN: r36216
2000-09-07 02:37:14 +02:00
|
|
|
|
}
|