1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
/* trad.t
* Samples for a very old "Reiser" model preprocessor.
*/
#define glue(a, b) a/**/b
#define xglue(a, b) glue(a,b)
#define ctrl( c) 'c' & 0x1f
#define debug(n1,n2) printf("n1= %d, n2= %s", x/**/n1, x/**/n2)
/* ISO C preprocessor expands to :a b c;
* very old preprocessor does to :abc;
*/
glue( glue( a,b),c);
/* ISO C :a b c;
* very old :abc;
*/
xglue( xglue( a,b),c);
#define abc ABC
/* ISO C preprocessor expands to :a b c;
* very old preprocessor does to :ABC;
*/
glue( glue( a,b),c);
/* ISO C :'c' & 0x1f;
* very old :'A' & 0x1f;
*/
ctrl( A);
/* ISO C :printf("n1= %d, n2= %s", x 1, x 2);
* very old :printf("1= %d, 2= %s", x1, x2);
*/
debug(1,2);
/* ISO C :text other than comment after #else, #endif line is error
* very old :the text is skipped quietly
*/
#define OLD_PREPROCESSOR 1
#if OLD_PREPROCESSOR
#else OLD_PREPROCESSOR
#endif OLD_PREPROCESSOR
/* ISO C :Token error
* very old :Implicit closing quote at end of line
*/
asm("
.text
_probeintr:
ss
incl _npx_intrs_while_probing
pushl %eax
movb $0x20,%al
#ifdef PC98
outb %al,$0x08
outb %al,$0x0
#else
outb %al,$0xa0
outb %al,$0x20
#endif
");
|
