35 lines
791 B
Perl
35 lines
791 B
Perl
|
/* e_19_3.t: Redefinitions of macros. */
|
||
|
|
|
||
|
|
/* Excerpts from ISO C 3.8.3 "Examples". */
|
||
|
|
|
||
|
|
#define OBJ_LIKE (1-1)
|
||
|
|
#define FTN_LIKE(a) ( a )
|
||
|
|
|
||
|
|
/* The following redefinitions should be diagnosed. */
|
||
|
|
|
||
|
|
/* 19.3: */
|
||
|
|
#define OBJ_LIKE (0) /* different token sequence */
|
||
|
|
|
||
|
|
/* (1-1); or (0); */
|
||
|
|
OBJ_LIKE;
|
||
|
|
|
||
|
|
/* 19.4: */
|
||
|
|
#undef OBJ_LIKE
|
||
|
|
#define OBJ_LIKE (1-1)
|
||
|
|
#define OBJ_LIKE (1 - 1) /* different white space */
|
||
|
|
|
||
|
|
/* 19.5: */
|
||
|
|
#define FTN_LIKE(b) ( a ) /* different parameter usage */
|
||
|
|
|
||
|
|
/* ( x ); or ( a); */
|
||
|
|
FTN_LIKE(x);
|
||
|
|
|
||
|
|
/* 19.6: */
|
||
|
|
#undef FTN_LIKE
|
||
|
|
#define FTN_LIKE(a) ( a )
|
||
|
|
#define FTN_LIKE(b) ( b ) /* different parameter spelling */
|
||
|
|
|
||
|
|
/* 19.7: Not in ISO C "Examples" */
|
||
|
|
#define FTN_LIKE OBJ_LIKE
|
||
|
|
|