OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [tree-ssa/] [20030729-1.c] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
/* { dg-do compile } */
2
/* { dg-options "-O1 -fdump-tree-dom3" } */
3
 
4
extern void abort (void);
5
union tree_node;
6
typedef union tree_node *tree;
7
 
8
 
9
enum tree_code
10
{
11
  SET_TYPE,
12
  RECORD_TYPE,
13
  LAST_AND_UNUSED_TREE_CODE
14
};
15
extern const char tree_code_type[];
16
 
17
struct tree_common
18
{
19
 
20
  enum tree_code code:8;
21
};
22
 
23
 
24
 
25
 
26
 
27
union tree_node
28
{
29
  struct tree_common common;
30
};
31
 
32
readonly_fields_p (type)
33
     tree type;
34
{
35
 
36
  if (type->common.code != RECORD_TYPE)
37
    return;
38
 
39
  if (tree_code_type[type->common.code] != 't')
40
    abort ();
41
 
42
  return;
43
}
44
 
45
/* A good optimizer would realize that the cast to (unsigned int) is
46
   useless as the earlier cast of the same value of (unsigned char) will
47
   always produce the same result.  */
48
/* { dg-final { scan-tree-dump-times "\\(unsigned int\\)" 0 "dom3"} } */
49
 
50
/* There should be one load of ->common.code.  We currently fail this
51
   because we load from ->common.code using different types.  */
52
/* { dg-final { scan-tree-dump-times "common\.code" 1 "dom3"} } */
53
 
54
/* { dg-final { cleanup-tree-dump "dom3" } } */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.