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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20000224-1.c] - Blame information for rev 801

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

Line No. Rev Author Line
1 688 jeremybenn 
enum Lisp_Type
2 
{
3 
  Lisp_Int
4 
  ,Lisp_Record
5 
  ,Lisp_Cons
6 
  ,Lisp_String
7 
  ,Lisp_Vector
8 
  ,Lisp_Symbol
9 
  ,Lisp_Char
10 
};
11 
typedef
12 
union Lisp_Object
13 
  {
14 
    struct
15 
      {
16 
        enum Lisp_Type type: 3L ;
17 
        unsigned long  markbit: 1;
18 
        unsigned long  val: 32;
19 
      } gu;
20 
    long  i;
21 
  }
22 
Lisp_Object;
23 
extern int initialized;
24 
void
25 
init_device_faces (int *d)
26 
{
27 
  if (initialized)
28 
    {
29 
      Lisp_Object tdevice;
30 
      do {
31 
          tdevice = (union Lisp_Object)
32 
                        { gu:
33 
                          { markbit: 0,
34 
                            type: Lisp_Record,
35 
                            val: ((unsigned long )d)
36 
                          }
37 
                        };
38 
      } while (0);
39 
      call_critical_lisp_code (tdevice);
40 
    }
41 
}

powered by: WebSVN 2.1.0

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