OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR tree-optimization/34046
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
compile
/
20000224-1.c
1
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
}