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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [arm/] [20031108-1.c] - Blame information for rev 695

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 691 jeremybenn
/* PR optimization/10467  */
2
/* { dg-do compile } */
3
/* { dg-skip-if "" { ! { arm_thumb1_ok || arm_thumb2_ok } } } */
4
/* { dg-options "-O2 -mthumb" } */
5
 
6
typedef enum {Ident_1} Enumeration;
7
 
8
typedef struct record
9
{
10
    struct record *Ptr_Comp;
11
    Enumeration Discr;
12
    union {
13
        struct {
14
            Enumeration Enum_Comp;
15
            int Int_Comp;
16
            char Str_Comp [31];
17
        } var_1;
18
    } variant;
19
} *Rec_Pointer;
20
 
21
Rec_Pointer Ptr_Glob;
22
 
23
Proc_1 (Ptr_Val_Par)
24
    Rec_Pointer Ptr_Val_Par;
25
{
26
    Rec_Pointer Next_Record = Ptr_Val_Par->Ptr_Comp;
27
 
28
    *Ptr_Val_Par->Ptr_Comp = *Ptr_Glob;
29
 
30
    if (Next_Record->Discr == Ident_1)
31
    {
32
        Proc_7 (Next_Record->variant.var_1.Int_Comp, 10,
33
                &Next_Record->variant.var_1.Int_Comp);
34
    }
35
}
36
 

powered by: WebSVN 2.1.0

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