Commit 7b073ca6 by Richard Stallman

(expand_builtin): For sin, cos, fsqrt, alloca, ffs, strlen,

strcpy, memcpy, strcmp, memcmp, if args are bad, use expand_call.

From-SVN: r6122
parent 4bc38260
...@@ -6635,7 +6635,7 @@ expand_builtin (exp, target, subtarget, mode, ignore) ...@@ -6635,7 +6635,7 @@ expand_builtin (exp, target, subtarget, mode, ignore)
if (arglist == 0 if (arglist == 0
/* Arg could be wrong type if user redeclared this fcn wrong. */ /* Arg could be wrong type if user redeclared this fcn wrong. */
|| TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != REAL_TYPE) || TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != REAL_TYPE)
return CONST0_RTX (TYPE_MODE (TREE_TYPE (exp))); break;
/* Stabilize and compute the argument. */ /* Stabilize and compute the argument. */
if (TREE_CODE (TREE_VALUE (arglist)) != VAR_DECL if (TREE_CODE (TREE_VALUE (arglist)) != VAR_DECL
...@@ -7051,7 +7051,7 @@ expand_builtin (exp, target, subtarget, mode, ignore) ...@@ -7051,7 +7051,7 @@ expand_builtin (exp, target, subtarget, mode, ignore)
if (arglist == 0 if (arglist == 0
/* Arg could be non-integer if user redeclared this fcn wrong. */ /* Arg could be non-integer if user redeclared this fcn wrong. */
|| TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != INTEGER_TYPE) || TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != INTEGER_TYPE)
return const0_rtx; break;
current_function_calls_alloca = 1; current_function_calls_alloca = 1;
/* Compute the argument. */ /* Compute the argument. */
op0 = expand_expr (TREE_VALUE (arglist), NULL_RTX, VOIDmode, 0); op0 = expand_expr (TREE_VALUE (arglist), NULL_RTX, VOIDmode, 0);
...@@ -7072,7 +7072,7 @@ expand_builtin (exp, target, subtarget, mode, ignore) ...@@ -7072,7 +7072,7 @@ expand_builtin (exp, target, subtarget, mode, ignore)
if (arglist == 0 if (arglist == 0
/* Arg could be non-integer if user redeclared this fcn wrong. */ /* Arg could be non-integer if user redeclared this fcn wrong. */
|| TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != INTEGER_TYPE) || TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != INTEGER_TYPE)
return const0_rtx; break;
/* Compute the argument. */ /* Compute the argument. */
op0 = expand_expr (TREE_VALUE (arglist), subtarget, VOIDmode, 0); op0 = expand_expr (TREE_VALUE (arglist), subtarget, VOIDmode, 0);
...@@ -7092,7 +7092,7 @@ expand_builtin (exp, target, subtarget, mode, ignore) ...@@ -7092,7 +7092,7 @@ expand_builtin (exp, target, subtarget, mode, ignore)
if (arglist == 0 if (arglist == 0
/* Arg could be non-pointer if user redeclared this fcn wrong. */ /* Arg could be non-pointer if user redeclared this fcn wrong. */
|| TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != POINTER_TYPE) || TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != POINTER_TYPE)
return const0_rtx; break;
else else
{ {
tree src = TREE_VALUE (arglist); tree src = TREE_VALUE (arglist);
...@@ -7176,7 +7176,7 @@ expand_builtin (exp, target, subtarget, mode, ignore) ...@@ -7176,7 +7176,7 @@ expand_builtin (exp, target, subtarget, mode, ignore)
|| TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != POINTER_TYPE || TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != POINTER_TYPE
|| TREE_CHAIN (arglist) == 0 || TREE_CHAIN (arglist) == 0
|| TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (arglist)))) != POINTER_TYPE) || TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (arglist)))) != POINTER_TYPE)
return const0_rtx; break;
else else
{ {
tree len = c_strlen (TREE_VALUE (TREE_CHAIN (arglist))); tree len = c_strlen (TREE_VALUE (TREE_CHAIN (arglist)));
...@@ -7202,7 +7202,7 @@ expand_builtin (exp, target, subtarget, mode, ignore) ...@@ -7202,7 +7202,7 @@ expand_builtin (exp, target, subtarget, mode, ignore)
|| TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (arglist)))) != POINTER_TYPE || TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (arglist)))) != POINTER_TYPE
|| TREE_CHAIN (TREE_CHAIN (arglist)) == 0 || TREE_CHAIN (TREE_CHAIN (arglist)) == 0
|| TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (TREE_CHAIN (arglist))))) != INTEGER_TYPE) || TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (TREE_CHAIN (arglist))))) != INTEGER_TYPE)
return const0_rtx; break;
else else
{ {
tree dest = TREE_VALUE (arglist); tree dest = TREE_VALUE (arglist);
...@@ -7254,7 +7254,7 @@ expand_builtin (exp, target, subtarget, mode, ignore) ...@@ -7254,7 +7254,7 @@ expand_builtin (exp, target, subtarget, mode, ignore)
|| TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != POINTER_TYPE || TREE_CODE (TREE_TYPE (TREE_VALUE (arglist))) != POINTER_TYPE
|| TREE_CHAIN (arglist) == 0 || TREE_CHAIN (arglist) == 0
|| TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (arglist)))) != POINTER_TYPE) || TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (arglist)))) != POINTER_TYPE)
return const0_rtx; break;
else if (!HAVE_cmpstrsi) else if (!HAVE_cmpstrsi)
break; break;
{ {
...@@ -7309,7 +7309,7 @@ expand_builtin (exp, target, subtarget, mode, ignore) ...@@ -7309,7 +7309,7 @@ expand_builtin (exp, target, subtarget, mode, ignore)
|| TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (arglist)))) != POINTER_TYPE || TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (arglist)))) != POINTER_TYPE
|| TREE_CHAIN (TREE_CHAIN (arglist)) == 0 || TREE_CHAIN (TREE_CHAIN (arglist)) == 0
|| TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (TREE_CHAIN (arglist))))) != INTEGER_TYPE) || TREE_CODE (TREE_TYPE (TREE_VALUE (TREE_CHAIN (TREE_CHAIN (arglist))))) != INTEGER_TYPE)
return const0_rtx; break;
else if (!HAVE_cmpstrsi) else if (!HAVE_cmpstrsi)
break; break;
{ {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment