(TARGET_SOFT_FLOAT): New macro.

(TARGET_SWITCHES, CPP_SPEC, CONDITIONAL_REGISTER_USAGE, FUNCTION_VALUE,
LIBCALL_VALUE, FUNCTION_VALUE_REGNO_P, FUNCTION_ARG_REGNO_P,
FUNCTION_ARG, ASM_DECLARE_FUNCTION_NAME, GO_IF_LEGITIMATE_ADDRESS,
RTX_COSTS): Use TARGET_SOFT_FLOAT.
(REAL_ARITHMETIC): Define.
(ASM_OUTPUT_DOUBLE): Rewrite.
(ASM_OUTPUT_FLOAT): Rewrite.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@8848 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/config/pa/pa.h b/gcc/config/pa/pa.h
index 5ac0477..5fe9319 100644 (file)
--- a/gcc/config/pa/pa.h
+++ b/gcc/config/pa/pa.h
@@ -107,6 +107,10 @@ extern int target_flags;
 
 #define TARGET_GAS (target_flags & 128)
 
+/* Emit code for processors which do not have an FPU.  */
+
+#define TARGET_SOFT_FLOAT (target_flags & 256)
+
 /* Macro to define tables used to set the flags.
    This is a list in braces of pairs in braces,
    each pair being { "NAME", VALUE }
@@ -132,6 +136,8 @@ extern int target_flags;
    {"no-portable-runtime", -(64+16)},\
    {"gas", 128},               \
    {"no-gas", -128},           \
+   {"soft-float", 256},                \
+   {"no-soft-float", -256},    \
    { "", TARGET_DEFAULT}}
 
 #ifndef TARGET_DEFAULT
@@ -211,7 +217,7 @@ extern int target_flags;
 #define CPP_SPEC "%{msnake:-D__hp9000s700 -D_PA_RISC1_1}\
  %{mpa-risc-1-1:-D__hp9000s700 -D_PA_RISC1_1}"
 #else
-#define CPP_SPEC "%{!mpa-risc-1-0:%{!mnosnake:-D__hp9000s700 -D_PA_RISC1_1}}"
+#define CPP_SPEC "%{!mpa-risc-1-0:%{!mnosnake:%{!msoft-float:-D__hp9000s700 -D_PA_RISC1_1}}}"
 #endif
 
 /* Defines for a K&R CC */
@@ -257,6 +263,10 @@ do {                                                               \
 \f
 /* target machine storage layout */
 
+/* Define for cross-compilation from a host with a different float format
+   or endianess (e.g. VAX, x86).  */
+#define REAL_ARITHMETIC
+
 /* Define this if most significant bit is lowest numbered
    in instructions that operate on numbered bit-fields.  */
 #define BITS_BIG_ENDIAN 1
@@ -267,8 +277,6 @@ do {                                                                \
 
 /* Define this if most significant word of a multiword number is lowest
    numbered.  */
-/* For the HP-PA we can decide arbitrarily
-   since there are no machine instructions for them.  */
 #define WORDS_BIG_ENDIAN 1
 
 /* number of bits in an addressable storage unit */
@@ -439,7 +447,8 @@ do {                                                                \
       for (i = 33; i < 88; i += 2)             \
        fixed_regs[i] = call_used_regs[i] = 1;  \
     }                                          \
-  else if (TARGET_DISABLE_FPREGS)              \
+  else if (TARGET_DISABLE_FPREGS               \
+          || TARGET_SOFT_FLOAT)                \
     {                                          \
       for (i = 32; i < 88; i++)                \
        fixed_regs[i] = call_used_regs[i] = 1;  \
@@ -786,26 +795,29 @@ enum reg_class { NO_REGS, R1_REGS, GENERAL_REGS, FP_REGS, GENERAL_OR_FP_REGS,
 
 
 #define FUNCTION_VALUE(VALTYPE, FUNC)  \
-  gen_rtx (REG, TYPE_MODE (VALTYPE), ((TYPE_MODE (VALTYPE) == SFmode ||        \
-                                      TYPE_MODE (VALTYPE) == DFmode) ? \
+  gen_rtx (REG, TYPE_MODE (VALTYPE), ((! TARGET_SOFT_FLOAT                  \
+                                      && (TYPE_MODE (VALTYPE) == SFmode ||  \
+                                          TYPE_MODE (VALTYPE) == DFmode)) ? \
                                      32 : 28))
 
 /* Define how to find the value returned by a library function
    assuming the value has mode MODE.  */
 
-#define LIBCALL_VALUE(MODE) \
-  gen_rtx (REG, MODE, ((MODE) == SFmode || (MODE) == DFmode ? 32 : 28))
+#define LIBCALL_VALUE(MODE)    \
+  gen_rtx (REG, MODE,                                                  \
+          (! TARGET_SOFT_FLOAT                                         \
+           && ((MODE) == SFmode || (MODE) == DFmode) ? 32 : 28))
 
 /* 1 if N is a possible register number for a function value
    as seen by the caller.  */
 
 #define FUNCTION_VALUE_REGNO_P(N) \
-  ((N) == 28 || (N) == 32)
+  ((N) == 28 || (! TARGET_SOFT_FLOAT && (N) == 32))
 
 /* 1 if N is a possible register number for function argument passing.  */
 
 #define FUNCTION_ARG_REGNO_P(N) \
-  (((N) >= 23 && (N) <= 26) || ((N) >= 32 && (N) <= 39))
+  (((N) >= 23 && (N) <= 26) || (! TARGET_SOFT_FLOAT && (N) >= 32 && (N) <= 39))
 \f
 /* Define a data type for recording info about an argument list
    during the scan of that argument list.  This data type should
@@ -914,17 +926,20 @@ struct hppa_args {int words, nargs_prototype; };
 #define FUNCTION_ARG(CUM, MODE, TYPE, NAMED)                           \
   (4 >= ((CUM).words + FUNCTION_ARG_SIZE ((MODE), (TYPE)))             \
    ? (!TARGET_PORTABLE_RUNTIME || (TYPE) == 0                          \
-      || !FLOAT_MODE_P (MODE) || (CUM).nargs_prototype > 0)            \
+      || !FLOAT_MODE_P (MODE) || TARGET_SOFT_FLOAT                     \
+      || (CUM).nargs_prototype > 0)                                    \
       ? gen_rtx (REG, (MODE),                                          \
                 (FUNCTION_ARG_SIZE ((MODE), (TYPE)) > 1                \
                  ? (((!current_call_is_indirect                        \
                       || TARGET_PORTABLE_RUNTIME)                      \
-                     && (MODE) == DFmode)                              \
+                     && (MODE) == DFmode                               \
+                     && ! TARGET_SOFT_FLOAT)                           \
                     ? ((CUM).words ? 38 : 34)                          \
                     : ((CUM).words ? 23 : 25))                         \
                  : (((!current_call_is_indirect                        \
                       || TARGET_PORTABLE_RUNTIME)                      \
-                     && (MODE) == SFmode)                              \
+                     && (MODE) == SFmode                               \
+                     && ! TARGET_SOFT_FLOAT)                           \
                     ? (32 + 2 * (CUM).words)                           \
                     : (27 - (CUM).words - FUNCTION_ARG_SIZE ((MODE),   \
                                                              (TYPE))))))\
@@ -1006,9 +1021,11 @@ extern enum cmp_type hppa_branch_type;
             for (parm = DECL_ARGUMENTS (DECL), i = 0; parm && i < 4;   \
                  parm = TREE_CHAIN (parm))                             \
               {                                                        \
-                if (TYPE_MODE (DECL_ARG_TYPE (parm)) == SFmode)        \
+                if (TYPE_MODE (DECL_ARG_TYPE (parm)) == SFmode         \
+                    && ! TARGET_SOFT_FLOAT)                            \
                   fprintf (FILE, ",ARGW%d=FR", i++);                   \
-                else if (TYPE_MODE (DECL_ARG_TYPE (parm)) == DFmode)   \
+                else if (TYPE_MODE (DECL_ARG_TYPE (parm)) == DFmode    \
+                         && ! TARGET_SOFT_FLOAT)                       \
                   {                                                    \
                     if (i <= 2)                                        \
                       {                                                \
@@ -1044,9 +1061,9 @@ extern enum cmp_type hppa_branch_type;
                 for (; i < 4; i++)                                     \
                   fprintf (FILE, ",ARGW%d=GR", i);                     \
               }                                                        \
-            if (TYPE_MODE (fntype) == DFmode)                          \
+            if (TYPE_MODE (fntype) == DFmode && ! TARGET_SOFT_FLOAT)   \
               fprintf (FILE, ",RTNVAL=FR");                            \
-            else if (TYPE_MODE (fntype) == SFmode)                     \
+            else if (TYPE_MODE (fntype) == SFmode && ! TARGET_SOFT_FLOAT) \
               fprintf (FILE, ",RTNVAL=FU");                            \
             else if (fntype != void_type_node)                         \
               fprintf (FILE, ",RTNVAL=GR");                            \
@@ -1373,7 +1390,9 @@ extern union tree_node *current_function_decl;
        base = XEXP (X, 1), index = XEXP (X, 0);        \
       if (base != 0)                                   \
        if (GET_CODE (index) == CONST_INT               \
-           && ((INT_14_BITS (index) && (MODE) != SFmode && (MODE) != DFmode) \
+           && ((INT_14_BITS (index)                    \
+                && (TARGET_SOFT_FLOAT                  \
+                    || ((MODE) != SFmode && (MODE) != DFmode))) \
                || INT_5_BITS (index)))                 \
          goto ADDR;                                    \
     }                                                  \
@@ -1381,16 +1400,18 @@ extern union tree_node *current_function_decl;
           && GET_CODE (XEXP (X, 0)) == REG             \
           && REG_OK_FOR_BASE_P (XEXP (X, 0))           \
           && CONSTANT_P (XEXP (X, 1))                  \
-          && (MODE) != SFmode                          \
-          && (MODE) != DFmode)                         \
+          && (TARGET_SOFT_FLOAT                        \
+              || ((MODE) != SFmode                     \
+                  && (MODE) != DFmode)))               \
     goto ADDR;                                         \
   else if (GET_CODE (X) == LO_SUM                      \
           && GET_CODE (XEXP (X, 0)) == SUBREG          \
           && GET_CODE (SUBREG_REG (XEXP (X, 0))) == REG\
           && REG_OK_FOR_BASE_P (SUBREG_REG (XEXP (X, 0)))\
           && CONSTANT_P (XEXP (X, 1))                  \
-          && (MODE) != SFmode                          \
-          && (MODE) != DFmode)                         \
+          && (TARGET_SOFT_FLOAT                        \
+              || ((MODE) != SFmode                     \
+                  && (MODE) != DFmode)))               \
     goto ADDR;                                         \
   else if (GET_CODE (X) == LABEL_REF                   \
           || (GET_CODE (X) == CONST_INT                \
@@ -1636,8 +1657,9 @@ while (0)
 
 #define RTX_COSTS(X,CODE,OUTER_CODE) \
   case MULT:                                                   \
-    return TARGET_SNAKE && ! TARGET_DISABLE_FPREGS             \
-      ? COSTS_N_INSNS (8) : COSTS_N_INSNS (20);                \
+    return (TARGET_SNAKE && ! TARGET_DISABLE_FPREGS            \
+           && ! TARGET_SOFT_FLOAT                              \
+           ? COSTS_N_INSNS (8) : COSTS_N_INSNS (20));          \
   case DIV:                                                    \
   case UDIV:                                                   \
   case MOD:                                                    \
@@ -1892,19 +1914,18 @@ readonly_data ()                                                        \
 /* This is how to output an assembler line defining a `double' constant.  */
 
 #define ASM_OUTPUT_DOUBLE(FILE,VALUE)  \
-  do { union { double d; int i[2];} __u;       \
-    __u.d = (VALUE);                           \
-    fprintf (FILE, "\t; .double %.20e\n\t.word %d ; = 0x%x\n\t.word %d ; = 0x%x\n",    \
-            __u.d, __u.i[0], __u.i[0], __u.i[1], __u.i[1]);    \
-  } while (0)
+  do { long l[2];                                                      \
+       REAL_VALUE_TO_TARGET_DOUBLE (VALUE, l);                         \
+       fprintf (FILE, "\t.word 0x%lx\n\t.word 0x%lx\n", l[0], l[1]);   \
+     } while (0)
 
 /* This is how to output an assembler line defining a `float' constant.  */
 
 #define ASM_OUTPUT_FLOAT(FILE,VALUE)  \
-  do { union { float f; int i;} __u;           \
-    __u.f = (VALUE);                           \
-    fprintf (FILE, "\t; .float %.12e\n\t.word %d ; = 0x%x\n", __u.f, __u.i, __u.i); \
-  } while (0)
+  do { long l;                                                         \
+       REAL_VALUE_TO_TARGET_SINGLE (VALUE, l);                         \
+       fprintf (FILE, "\t.word 0x%lx\n", l);                           \
+     } while (0)
 
 /* This is how to output an assembler line defining an `int' constant.  */