![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to next-pdo.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / cc / config / pa|
Return to next-pdo.h CVS log | Up to [Apple XNU] / GNUtools / cc / config / pa |
1.1 ! root 1: /* Target definitions for GNU compiler for hppa running HPUX with NeXT pdo ! 2: Copyright (C) 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. ! 3: ! 4: This file is part of GNU CC. ! 5: ! 6: GNU CC is free software; you can redistribute it and/or modify ! 7: it under the terms of the GNU General Public License as published by ! 8: the Free Software Foundation; either version 2, or (at your option) ! 9: any later version. ! 10: ! 11: GNU CC is distributed in the hope that it will be useful, ! 12: but WITHOUT ANY WARRANTY; without even the implied warranty of ! 13: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! 14: GNU General Public License for more details. ! 15: ! 16: You should have received a copy of the GNU General Public License ! 17: along with GNU CC; see the file COPYING. If not, write to ! 18: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ ! 19: ! 20: /* added <jf> */ ! 21: #define USE_GAS ! 22: ! 23: /* this may not work for double values -- hard coded to 32 bit entities */ ! 24: ! 25: #define OBJC_FORWARDING_REG_OFFSET(ISREG, OFF, REGNO) \ ! 26: do { OFF = (FP_REG_CLASS_P( REGNO_REG_CLASS(REGNO)) \ ! 27: ? -2 * ((REGNO) - 44) - 4 \ ! 28: : 4 * ((REGNO) - 26) - 4); \ ! 29: ISREG = 0; } while (0) ! 30: ! 31: /* pa1-ghpux originally includes pa-ghpux.h and pa.h */ ! 32: #include "pa/pa1-ghpux.h" ! 33: ! 34: #define NEXT_OBJC_RUNTIME ! 35: ! 36: #define OBJC_HPUX_PADDING ! 37: ! 38: #define NEXT_PDO ! 39: ! 40: /* ! 41: * overrides for the funky places we put stuff ! 42: * there was a bug in the beta where the /usr was not prefixed ! 43: */ ! 44: #undef INCLUDE_DEFAULTS ! 45: #define INCLUDE_DEFAULTS \ ! 46: { \ ! 47: { GPLUSPLUS_INCLUDE_DIR, 1}, \ ! 48: { GCC_INCLUDE_DIR, 0}, \ ! 49: { LOCAL_INCLUDE_DIR, 0}, \ ! 50: { "/usr/NextDeveloper/Headers", 0}, \ ! 51: { "/usr/NextDeveloper/Headers/ansi", 0}, \ ! 52: { "/usr/NextDeveloper/Headers/bsd", 0}, \ ! 53: { "/usr/LocalDeveloper/Headers", 0}, \ ! 54: { "/usr/LocalDeveloper/Headers/ansi", 0}, \ ! 55: { "/usr/LocalDeveloper/Headers/bsd", 0}, \ ! 56: { STANDARD_INCLUDE_DIR, 0}, \ ! 57: { 0, 0} \ ! 58: } ! 59: ! 60: /* ! 61: #define REPORT_EVENT(TYPE, NAME, FILE, LINE, MSG, ARG1, ARG2, ARG3) \ ! 62: make_support (TYPE, NAME, FILE, LINE, MSG, ARG1, ARG2, ARG3) ! 63: */ ! 64: ! 65: /* ! 66: * override default prefix behavior ! 67: */ ! 68: ! 69: #undef STANDARD_EXEC_PREFIX ! 70: #define STANDARD_EXEC_PREFIX "/usr/NextDeveloper/lib/" ! 71: /* when looking for specs */ ! 72: #undef STANDARD_STARTFILE_PREFIX ! 73: #define STANDARD_STARTFILE_PREFIX "/usr/NextDeveloper/lib/" ! 74: #undef TOOLDIR_BASE_PREFIX ! 75: #define TOOLDIR_BASE_PREFIX "/usr/NextDeveloper/" ! 76: ! 77: /* ! 78: * specs ! 79: * ! 80: */ ! 81: ! 82: /* should -L really be in LIB_SPEC ? <jf> */ ! 83: #undef LIB_SPEC ! 84: #define LIB_SPEC "%{!p:%{!pg:-L/usr/NextDeveloper/lib -lpdo -lc -lm}}%{p:-L/usr/NextDeveloper/lib -L/lib/libp/ -lpdo -lc -lm}%{pg:-L/usr/NextDeveloper/lib -L/lib/libp/ -lpdo -lc -lm}" ! 85: ! 86: #ifndef STARTFILE_SPEC ! 87: #define STARTFILE_SPEC \ ! 88: "%{pg:gcrt0.o%s crtPDO.o%s}%{!pg:%{p:mcrt0.o%s crtPDO.o%s}%{!p:crt0.o%s crtPDO.o%s}}" ! 89: #endif ! 90: ! 91: /* config.h can define ENDFILE_SPEC to override the default crtn files. */ ! 92: #ifndef ENDFILE_SPEC ! 93: #define ENDFILE_SPEC "crtnPDO.o%s" ! 94: #endif ! 95: ! 96: ! 97: /* RIPPED OFF FROM nextstep.h */ ! 98: ! 99: /* Give methods pretty symbol names on NeXT. */ ! 100: ! 101: #undef OBJC_GEN_METHOD_LABEL ! 102: #define OBJC_GEN_METHOD_LABEL(BUF,IS_INST,CLASS_NAME,CAT_NAME,SEL_NAME,NUM) \ ! 103: do { if (CAT_NAME) \ ! 104: sprintf (BUF, "%c[%s(%s) %s]", (IS_INST) ? '-' : '+', \ ! 105: (CLASS_NAME), (CAT_NAME), (SEL_NAME)); \ ! 106: else \ ! 107: sprintf (BUF, "%c[%s %s]", (IS_INST) ? '-' : '+', \ ! 108: (CLASS_NAME), (SEL_NAME)); \ ! 109: } while (0) ! 110: ! 111: /* Wrap new method names in quotes so the assembler doesn't gag. ! 112: Make Objective-C internal symbols local. */ ! 113: ! 114: /* work around the gnu'ism of the @ at the begining of the symbol name */ ! 115: ! 116: #undef ASM_OUTPUT_LABELREF ! 117: #define ASM_OUTPUT_LABELREF(FILE,NAME) \ ! 118: do { \ ! 119: if (FUNCTION_NAME_P (NAME) && (NAME[1] == '+' || NAME[1] == '-')) \ ! 120: fprintf (FILE, "\"%s\"", NAME+1); \ ! 121: else if (NAME[0] == '+' || NAME[0] == '-') \ ! 122: fprintf (FILE, "\"%s\"", NAME[0]); \ ! 123: else if (!strncmp (NAME, "_OBJC_", 6)) \ ! 124: fprintf (FILE, "L%s", NAME); \ ! 125: else if (!strncmp (NAME, ".objc_class_name_", 17)) \ ! 126: fprintf (FILE, "%s", NAME); \ ! 127: else fprintf ((FILE), "%s", (NAME) + (FUNCTION_NAME_P (NAME) ? 1 : 0)); } while (0) ! 128: ! 129: ! 130: /* This is how to output an assembler line defining an `int' constant. ! 131: this is used in the OBJC_INSTANCE_METHODS segment ! 132: removed code that put P% infront of code being linked to shared libs ! 133: */ ! 134: ! 135: #undef ASM_OUTPUT_INT ! 136: #define ASM_OUTPUT_INT(FILE,VALUE) \ ! 137: { fprintf (FILE, "\t.word "); \ ! 138: if (function_label_operand (VALUE, VOIDmode) \ ! 139: && in_section != in_text) \ ! 140: fprintf (FILE, "P%%"); \ ! 141: output_addr_const (FILE, (VALUE)); \ ! 142: fprintf (FILE, "\n");} ! 143: ! 144: /* from josh */ ! 145: ! 146: ! 147: #undef SECTION_FUNCTION ! 148: #define SECTION_FUNCTION(FUNCTION, SECTION, SUBSPACE) \ ! 149: void \ ! 150: FUNCTION () \ ! 151: { \ ! 152: extern void text_section (); \ ! 153: extern void objc_section_init (); \ ! 154: extern int flag_no_mach_text_sections; \ ! 155: static int been_here = 0; \ ! 156: \ ! 157: if (in_section != SECTION) \ ! 158: { \ ! 159: objc_section_init (); \ ! 160: fprintf (asm_out_file, "\t.SPACE $PRIVATE$\n"); \ ! 161: fprintf (asm_out_file, "\t.SUBSPA %s", SUBSPACE); \ ! 162: if (!been_here) { \ ! 163: fprintf(asm_out_file,",QUAD=1,ALIGN=4,ACCESS=31"); \ ! 164: been_here = 1; \ ! 165: } \ ! 166: fprintf(asm_out_file,"\n"); \ ! 167: in_section = SECTION; \ ! 168: } \ ! 169: } \ ! 170: ! 171: #undef EXTRA_SECTIONS ! 172: #define EXTRA_SECTIONS in_bss, in_readonly_data, \ ! 173: in_objc_class, in_objc_meta_class, in_objc_category, \ ! 174: in_objc_class_vars, in_objc_instance_vars, \ ! 175: in_objc_cls_meth, in_objc_inst_meth, \ ! 176: in_objc_cat_cls_meth, in_objc_cat_inst_meth, \ ! 177: in_objc_selector_refs, \ ! 178: in_objc_symbols, in_objc_module_info, \ ! 179: in_objc_protocol, in_objc_string_object, \ ! 180: in_objc_class_names, in_objc_meth_var_names, \ ! 181: in_objc_meth_var_types, in_objc_cls_refs ! 182: ! 183: #undef EXTRA_SECTION_FUNCTIONS ! 184: #define EXTRA_SECTION_FUNCTIONS \ ! 185: void \ ! 186: bss_section () \ ! 187: { \ ! 188: if (in_section != in_bss) \ ! 189: { \ ! 190: fprintf (asm_out_file, "%s\n", \ ! 191: BSS_SECTION_ASM_OP); \ ! 192: in_section = in_bss; \ ! 193: } \ ! 194: } \ ! 195: void \ ! 196: readonly_data () \ ! 197: { \ ! 198: if (in_section != in_readonly_data) \ ! 199: { \ ! 200: fprintf (asm_out_file, "%s\n", \ ! 201: READONLY_DATA_ASM_OP); \ ! 202: in_section = in_readonly_data; \ ! 203: } \ ! 204: } \ ! 205: SECTION_FUNCTION (objc_class_section, \ ! 206: in_objc_class, \ ! 207: "$$OBJC_CLASS$$") \ ! 208: SECTION_FUNCTION (objc_meta_class_section, \ ! 209: in_objc_meta_class, \ ! 210: "$$OBJC_METACLASS$$") \ ! 211: SECTION_FUNCTION (objc_category_section, \ ! 212: in_objc_category, \ ! 213: "$$OBJC_CATEGORY$$") \ ! 214: SECTION_FUNCTION (objc_class_vars_section, \ ! 215: in_objc_class_vars, \ ! 216: "$$OBJC_CLASS_VARS$$") \ ! 217: SECTION_FUNCTION (objc_instance_vars_section, \ ! 218: in_objc_instance_vars, \ ! 219: "$$OBJC_INSTANCE_VARS$$") \ ! 220: SECTION_FUNCTION (objc_cls_meth_section, \ ! 221: in_objc_cls_meth, \ ! 222: "$$OBJC_CLS_METH$$") \ ! 223: SECTION_FUNCTION (objc_inst_meth_section, \ ! 224: in_objc_inst_meth, \ ! 225: "$$OBJC_INST_METHODS$$") \ ! 226: SECTION_FUNCTION (objc_cat_cls_meth_section, \ ! 227: in_objc_cat_cls_meth, \ ! 228: "$$OBJC_CAT_CLS_METH$$") \ ! 229: SECTION_FUNCTION (objc_cat_inst_meth_section, \ ! 230: in_objc_cat_inst_meth, \ ! 231: "$$OBJC_CAT_INST_METH$$") \ ! 232: SECTION_FUNCTION (objc_selector_refs_section, \ ! 233: in_objc_selector_refs, \ ! 234: "$$OBJC_MESSAGE_REFS$$") \ ! 235: SECTION_FUNCTION (objc_symbols_section, \ ! 236: in_objc_symbols, \ ! 237: "$$OBJC_SYMBOLS$$") \ ! 238: SECTION_FUNCTION (objc_module_info_section, \ ! 239: in_objc_module_info, \ ! 240: "$$OBJC_MODULES$$") \ ! 241: SECTION_FUNCTION (objc_protocol_section, \ ! 242: in_objc_protocol, \ ! 243: "$$OBJC_PROTOCOL$$") \ ! 244: SECTION_FUNCTION (objc_string_object_section, \ ! 245: in_objc_string_object, \ ! 246: "$$OBJC_STRING_OBJECT$$") \ ! 247: SECTION_FUNCTION (objc_class_names_section, \ ! 248: in_objc_class_names, \ ! 249: "$$OBJC_CLASS_NAMES$$") \ ! 250: SECTION_FUNCTION (objc_meth_var_names_section, \ ! 251: in_objc_meth_var_names, \ ! 252: "$$OBJC_METH_VAR_NAMES$$") \ ! 253: SECTION_FUNCTION (objc_meth_var_types_section, \ ! 254: in_objc_meth_var_types, \ ! 255: "$$OBJC_METH_VAR_TYPES$$") \ ! 256: SECTION_FUNCTION (objc_cls_refs_section, \ ! 257: in_objc_cls_refs, \ ! 258: "$$OBJC_CLS_REFS$$") \ ! 259: \ ! 260: void \ ! 261: objc_section_init () \ ! 262: { \ ! 263: static int been_here = 0; \ ! 264: \ ! 265: if (been_here == 0) \ ! 266: { \ ! 267: been_here = 1; \ ! 268: objc_class_section (); \ ! 269: objc_meta_class_section (); \ ! 270: objc_cat_cls_meth_section (); \ ! 271: objc_cat_inst_meth_section (); \ ! 272: objc_cls_meth_section (); \ ! 273: objc_inst_meth_section (); \ ! 274: objc_selector_refs_section (); \ ! 275: objc_symbols_section (); \ ! 276: objc_category_section (); \ ! 277: objc_protocol_section (); \ ! 278: objc_class_vars_section (); \ ! 279: objc_instance_vars_section (); \ ! 280: objc_module_info_section (); \ ! 281: objc_string_object_section (); \ ! 282: objc_class_names_section (); \ ! 283: objc_meth_var_names_section (); \ ! 284: objc_meth_var_types_section (); \ ! 285: objc_cls_refs_section (); \ ! 286: } \ ! 287: } ! 288: ! 289: /* different from NS version in that no literalX_section */ ! 290: #undef SELECT_SECTION ! 291: #define SELECT_SECTION(exp,reloc) \ ! 292: do \ ! 293: { \ ! 294: if (TREE_CODE (exp) == STRING_CST) \ ! 295: { \ ! 296: if (flag_writable_strings) \ ! 297: data_section (); \ ! 298: else \ ! 299: readonly_data_section (); \ ! 300: } \ ! 301: else if (TREE_CODE (exp) == INTEGER_CST \ ! 302: || TREE_CODE (exp) == REAL_CST) \ ! 303: { \ ! 304: readonly_data_section (); \ ! 305: } \ ! 306: else if (TREE_CODE (exp) == CONSTRUCTOR \ ! 307: && TREE_TYPE (exp) \ ! 308: && TREE_CODE (TREE_TYPE (exp)) == RECORD_TYPE \ ! 309: && TYPE_NAME (TREE_TYPE (exp)) \ ! 310: && TREE_CODE (TYPE_NAME (TREE_TYPE (exp))) == IDENTIFIER_NODE \ ! 311: && IDENTIFIER_POINTER (TYPE_NAME (TREE_TYPE (exp)))) \ ! 312: { \ ! 313: if (!strcmp (IDENTIFIER_POINTER (TYPE_NAME (TREE_TYPE (exp))), \ ! 314: "NXConstantString")) \ ! 315: objc_string_object_section (); \ ! 316: else if ((TREE_READONLY (exp) || TREE_CONSTANT (exp)) \ ! 317: && !TREE_SIDE_EFFECTS (exp)) \ ! 318: readonly_data_section (); \ ! 319: else \ ! 320: data_section (); \ ! 321: } \ ! 322: else if (TREE_CODE (exp) == VAR_DECL && \ ! 323: DECL_NAME (exp) && \ ! 324: TREE_CODE (DECL_NAME (exp)) == IDENTIFIER_NODE && \ ! 325: IDENTIFIER_POINTER (DECL_NAME (exp)) && \ ! 326: !strncmp (IDENTIFIER_POINTER (DECL_NAME (exp)), "_OBJC_", 6)) \ ! 327: { \ ! 328: const char *name = IDENTIFIER_POINTER (DECL_NAME (exp)); \ ! 329: \ ! 330: if (!strncmp (name, "_OBJC_CLASS_METHODS_", 20)) \ ! 331: objc_cls_meth_section (); \ ! 332: else if (!strncmp (name, "_OBJC_INSTANCE_METHODS_", 23)) \ ! 333: objc_inst_meth_section (); \ ! 334: else if (!strncmp (name, "_OBJC_CATEGORY_CLASS_METHODS_", 20)) \ ! 335: objc_cat_cls_meth_section (); \ ! 336: else if (!strncmp (name, "_OBJC_CATEGORY_INSTANCE_METHODS_", 23)) \ ! 337: objc_cat_inst_meth_section (); \ ! 338: else if (!strncmp (name, "_OBJC_CLASS_VARIABLES_", 22)) \ ! 339: objc_class_vars_section (); \ ! 340: else if (!strncmp (name, "_OBJC_INSTANCE_VARIABLES_", 25)) \ ! 341: objc_instance_vars_section (); \ ! 342: else if (!strncmp (name, "_OBJC_CLASS_PROTOCOLS_", 22)) \ ! 343: objc_cat_cls_meth_section (); \ ! 344: else if (!strncmp (name, "_OBJC_CLASS_NAME_", 17)) \ ! 345: objc_class_names_section (); \ ! 346: else if (!strncmp (name, "_OBJC_METH_VAR_NAME_", 20)) \ ! 347: objc_meth_var_names_section (); \ ! 348: else if (!strncmp (name, "_OBJC_METH_VAR_TYPE_", 20)) \ ! 349: objc_meth_var_types_section (); \ ! 350: else if (!strncmp (name, "_OBJC_CLASS_REFERENCES", 22)) \ ! 351: objc_cls_refs_section (); \ ! 352: else if (!strncmp (name, "_OBJC_CLASS_", 12)) \ ! 353: objc_class_section (); \ ! 354: else if (!strncmp (name, "_OBJC_METACLASS_", 16)) \ ! 355: objc_meta_class_section (); \ ! 356: else if (!strncmp (name, "_OBJC_CATEGORY_", 15)) \ ! 357: objc_category_section (); \ ! 358: else if (!strncmp (name, "_OBJC_SELECTOR_REFERENCES", 25)) \ ! 359: objc_selector_refs_section (); \ ! 360: else if (!strncmp (name, "_OBJC_SYMBOLS", 13)) \ ! 361: objc_symbols_section (); \ ! 362: else if (!strncmp (name, "_OBJC_MODULES", 13)) \ ! 363: objc_module_info_section (); \ ! 364: else if (!strncmp (name, "_OBJC_PROTOCOL_INSTANCE_METHODS_", 32)) \ ! 365: objc_cat_inst_meth_section (); \ ! 366: else if (!strncmp (name, "_OBJC_PROTOCOL_CLASS_METHODS_", 29)) \ ! 367: objc_cat_cls_meth_section (); \ ! 368: else if (!strncmp (name, "_OBJC_PROTOCOL_REFS_", 20)) \ ! 369: objc_cat_cls_meth_section (); \ ! 370: else if (!strncmp (name, "_OBJC_PROTOCOL_", 15)) \ ! 371: objc_protocol_section (); \ ! 372: else if ((TREE_READONLY (exp) || TREE_CONSTANT (exp)) \ ! 373: && !TREE_SIDE_EFFECTS (exp)) \ ! 374: readonly_data_section (); \ ! 375: else \ ! 376: data_section (); \ ! 377: } \ ! 378: else if ((TREE_READONLY (exp) || TREE_CONSTANT (exp)) \ ! 379: && !TREE_SIDE_EFFECTS (exp)) \ ! 380: readonly_data_section (); \ ! 381: else \ ! 382: data_section (); \ ! 383: } \ ! 384: while (0) ! 385: ! 386: /* this was added to support unresolved references in the gas assembler */ ! 387: #undef DECLARE_UNRESOLVED_REFERENCE ! 388: ! 389: ! 390:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.