home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / gcc-2.5.8-src.lha / src / amiga / gcc-2.5.8 / config / ns32k / genix.h < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-05  |  6.1 KB  |  167 lines
  1. /* Definitions of target machine for GNU compiler.  Genix ns32000 version.
  2.    Copyright (C) 1987, 1988 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. #include "ns32k/encore.h"
  21.  
  22. /* We don't want the one Encore needs.  */
  23. #undef ASM_SPEC
  24.  
  25. /* The following defines override ones in ns32k.h and prevent any attempts
  26.    to explicitly or implicitly make references to the SB register in the GCC
  27.    generated code.  It is necessary to avoid such references under Genix V.3.1
  28.    because this OS doesn't even save/restore the SB on context switches!  */
  29.  
  30. #define IS_OK_REG_FOR_BASE_P(X)                        \
  31.   ( (GET_CODE (X) == REG) && REG_OK_FOR_BASE_P (X) )
  32.  
  33. #undef INDIRECTABLE_1_ADDRESS_P
  34. #define INDIRECTABLE_1_ADDRESS_P(X)                    \
  35.   (CONSTANT_ADDRESS_NO_LABEL_P (X)                    \
  36.    || IS_OK_REG_FOR_BASE_P (X)                        \
  37.    || (GET_CODE (X) == PLUS                        \
  38.        && IS_OK_REG_FOR_BASE_P (XEXP (X, 0))                \
  39.        && CONSTANT_ADDRESS_P (XEXP (X, 1))  )  )
  40.  
  41. /* Note that for double indirects, only FP, SP, and SB are allowed
  42.    as the inner-most base register.  But we are avoiding use of SB.  */
  43.  
  44. #undef MEM_REG
  45. #define MEM_REG(X)                            \
  46.   ( (GET_CODE (X) == REG)                        \
  47.   && ( (REGNO (X) == FRAME_POINTER_REGNUM)                \
  48.     || (REGNO (X) == STACK_POINTER_REGNUM) ) )
  49.  
  50. #undef INDIRECTABLE_2_ADDRESS_P
  51. #define INDIRECTABLE_2_ADDRESS_P(X)                    \
  52.   (GET_CODE (X) == MEM                            \
  53.    && (((xfoo0 = XEXP (X, 0), MEM_REG (xfoo0))                \
  54.        || (GET_CODE (xfoo0) == PLUS                    \
  55.        && MEM_REG (XEXP (xfoo0, 0))                    \
  56.        && CONSTANT_ADDRESS_NO_LABEL_P (XEXP (xfoo0, 1))))        \
  57.        || CONSTANT_ADDRESS_NO_LABEL_P (xfoo0)))
  58.  
  59. /* Go to ADDR if X is a valid address not using indexing.
  60.    (This much is the easy part.)  */
  61. #undef GO_IF_NONINDEXED_ADDRESS
  62. #define GO_IF_NONINDEXED_ADDRESS(X, ADDR)                \
  63. { register rtx xfoob = (X);                        \
  64.   if (GET_CODE (xfoob) == REG) goto ADDR;                \
  65.   if (INDIRECTABLE_1_ADDRESS_P(X)) goto ADDR;                \
  66.   if (CONSTANT_P(X)) goto ADDR;                        \
  67.   if (INDIRECTABLE_2_ADDRESS_P (X)) goto ADDR;                \
  68.   if (GET_CODE (X) == PLUS)                        \
  69.     if (CONSTANT_ADDRESS_NO_LABEL_P (XEXP (X, 1)))            \
  70.       if (INDIRECTABLE_2_ADDRESS_P (XEXP (X, 0)))            \
  71.     goto ADDR;                            \
  72. }
  73.  
  74. /* A bug in the GNX 3.X assembler causes references to external symbols to
  75.    be mishandled if the symbol is also used as the name of a function-local
  76.    variable or as the name of a struct or union field.  The problem only
  77.    appears when you are also using the -g option so that SDB debugging
  78.    directives are also being produced by GCC.  In such cases, the assembler
  79.    gets the external entity confused with the local entity and addressing
  80.    havoc ensues.  The solution is to get GCC to produce .global directives
  81.    for all external entities which are actually referenced within the current
  82.    source file.  The following macro does this.  */
  83.  
  84. #define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME)                \
  85.     ASM_GLOBALIZE_LABEL(FILE,NAME);
  86.  
  87. /* Genix wants 0l instead of 0f.  */
  88.  
  89. #undef ASM_OUTPUT_DOUBLE
  90. #define ASM_OUTPUT_DOUBLE(FILE,VALUE)                \
  91.  fprintf (FILE, "\t.long 0l%.20e\n", (VALUE))
  92.  
  93. /*  A bug in the GNX 3.X linker prevents symbol-table entries with a storage-
  94.     class field of C_EFCN (-1) from being accepted. */
  95.  
  96. #ifdef PUT_SDB_EPILOGUE_END
  97. #undef PUT_SDB_EPILOGUE_END
  98. #endif
  99. #define PUT_SDB_EPILOGUE_END(NAME)
  100.  
  101. #undef TARGET_VERSION
  102. #define TARGET_VERSION fprintf (stderr, " (32000, National syntax)");
  103.  
  104. /* Same as the encore definition except
  105.    * Different syntax for double constants.
  106.    * Don't output `?' before external regs.
  107.    * Output `(sb)' in certain indirect refs.  */
  108.  
  109. #error this has not been updated since version 1.
  110. #error it is certainly wrong.
  111.  
  112. #undef PRINT_OPERAND
  113. #define PRINT_OPERAND(FILE, X, CODE)                    \
  114. { if (CODE == '$') putc ('$', FILE);                    \
  115.   else if (CODE == '?');                        \
  116.   else if (GET_CODE (X) == REG)                        \
  117.     fprintf (FILE, "%s", reg_names[REGNO (X)]);                \
  118.   else if (GET_CODE (X) == MEM)                        \
  119.     {                                    \
  120.       rtx xfoo;                                \
  121.       xfoo = XEXP (X, 0);                        \
  122.       switch (GET_CODE (xfoo))                        \
  123.     {                                \
  124.     case MEM:                            \
  125.       if (GET_CODE (XEXP (xfoo, 0)) == REG)                \
  126.         if (REGNO (XEXP (xfoo, 0)) == STACK_POINTER_REGNUM)        \
  127.           fprintf (FILE, "0(0(sp))");                \
  128.         else fprintf (FILE, "0(0(%s))",                \
  129.               reg_names[REGNO (XEXP (xfoo, 0))]);        \
  130.       else                                \
  131.         {                                \
  132.           extern int paren_base_reg_printed;            \
  133.           fprintf (FILE, "0(");                    \
  134.           paren_base_reg_printed = 0;                \
  135.           output_address (xfoo);                    \
  136.           if (!paren_base_reg_printed)                \
  137.         fprintf (FILE, "(sb)");                    \
  138.           putc (')', FILE);                        \
  139.         }                                \
  140.       break;                            \
  141.     case REG:                            \
  142.       fprintf (FILE, "0(%s)", reg_names[REGNO (xfoo)]);        \
  143.       break;                            \
  144.     case PRE_DEC:                            \
  145.     case POST_INC:                            \
  146.       fprintf (FILE, "tos");                    \
  147.       break;                            \
  148.     case CONST_INT:                            \
  149.       fprintf (FILE, "@%d", INTVAL (xfoo));                \
  150.       break;                            \
  151.     default:                            \
  152.       output_address (xfoo);                    \
  153.       break;                            \
  154.     }                                \
  155.     }                                    \
  156.   else if (GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) != DImode)    \
  157.     if (GET_MODE (X) == DFmode)                        \
  158.       { union { double d; int i[2]; } u;                \
  159.         u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X);    \
  160.     fprintf (FILE, "$0l%.20e", u.d); }                \
  161.     else { union { double d; int i[2]; } u;                \
  162.        u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X); \
  163.        fprintf (FILE, "$0f%.20e", u.d); }                \
  164.   else if (GET_CODE (X) == CONST)                    \
  165.     output_addr_const (FILE, X);                    \
  166.   else { putc ('$', FILE); output_addr_const (FILE, X); }}
  167.