From 81284a6ad220981f2d6a0e13ce3dade55c10cab8 Mon Sep 17 00:00:00 2001 From: Jim Wilson Date: Sun, 27 Feb 1994 16:52:03 -0800 Subject: [PATCH] (subreg_realpart_p): New function. From-SVN: r6667 --- gcc/emit-rtl.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/gcc/emit-rtl.c b/gcc/emit-rtl.c index 382960c0351..b1d285f1387 100644 --- a/gcc/emit-rtl.c +++ b/gcc/emit-rtl.c @@ -822,6 +822,21 @@ gen_imagpart (mode, x) else return gen_highpart (mode, x); } + +/* Return 1 iff X, assumed to be a SUBREG, + refers to the real part of the complex value in its containing reg. + Complex values are always stored with the real part in the first word, + regardless of WORDS_BIG_ENDIAN. */ + +int +subreg_realpart_p (x) + rtx x; +{ + if (GET_CODE (x) != SUBREG) + abort (); + + return SUBREG_WORD (x) == 0; +} /* Assuming that X is an rtx (e.g., MEM, REG or SUBREG) for a value, return an rtx (MEM, SUBREG, or CONST_INT) that refers to the