URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [cpp/] [macro1.c] - Rev 604
Go to most recent revision | Compare with Previous | Blame | View Log
/* Copyright (C) 2000 Free Software Foundation, Inc. */ /* { dg-do run } */ /* Tests various macro abuse is correctly expanded. */ extern int puts (const char *); extern void abort (void); extern int strcmp(const char *s1, const char *s2); #define err(str) do { puts(str); abort(); } while (0) #define j(x, y) x + y #define k(x, y) j(x + 2, y + #define glue(x, y) x ## y #define xglue(x, y) glue(x, y) /* Functions called when macros are left unexpanded. */ int q(int x) {return x + 40;} int B(int x) {return x + 20;} int foo(int x) {return x + 10;} int bar(int x, int y) {return x + y;} int baz(int x, int y) {return x + y;} int toupper(int x) {return x + 32;} int M(int x) {return x * 2;} int main (int argc, char *argv[]) { #define q(x) x if (q(q)(2) != 42) err ("q"); #define A(x) B(x) if (A(A(2)) != 42) err ("A"); #define E(x) A x #define F (22) if (E(F) != 42) err ("E(F)"); #define COMMA , #define NASTY(a) j(a 37) if (NASTY (5 COMMA) != 42) err ("NASTY"); #define bar(x, y) foo(x(y, 0)) #define apply(x, y) foo(x(y, 22)) #define bam bar if (bar(bar, 32) != 42) /* foo(bar(32, 0)). */ err ("bar bar"); if (bar(bam, 32) != 42) /* Same. */ err ("bar bam"); if (apply(bar, baz) != 42) /* foo(foo(baz(22, 0))). */ err ("apply bar baz"); /* Taken from glibc. */ #define __tobody(c, f) f (c) #define toupper(c) __tobody (c, toupper) if (toupper (10) != 42) /* toupper (10). */ err ("toupper"); /* This tests that M gets expanded the right no. of times. Too many times, and we get excess "2 +"s and the wrong sum. Derived from nested stpcpy in dggettext.c. */ #define M(x) 2 + M(x) #define stpcpy(a) M(a) if (stpcpy (stpcpy (9)) != 42) /* 2 + M (2 + M (9)) */ err ("stpcpy"); /* Another test derived from nested stpcpy's of dggettext.c. Uses macro A(x) and function B(x) as defined above. The problem was the same - excess "1 +"s and the wrong sum. */ #define B(x) 1 + B(x) #define C(x) A(x) if (C(B(0)) != 42) /* 1 + B (1 + B (0)) */ err ("C"); /* More tests derived from gcc itself - the use of XEXP and COST. These first two should both expand to the same thing. */ { int insn = 6, i = 2, b = 2; #define XEXP(RTX, N) (RTX * N + 2) #define PATTERN(INSN) XEXP(INSN, 3) if (XEXP (PATTERN (insn), i) != 42) /* ((insn * 3 + 2) * i + 2) */ err ("XEXP (PATTERN)"); if (XEXP (XEXP (insn, 3), i) != 42) /* ((insn * 3 + 2) * i + 2) */ err ("XEXP (XEXP)"); #define COST(X) XEXP (XEXP (X, 4), 4) if (COST (b) != 42) /* ((b * 4 + 2) * 4 + 2) */ err ("COST"); } /* This tests macro recursion and expand-after-paste. */ #define FORTYTWO "forty" #define TWO TWO "-two" if (strcmp (glue(FORTY, TWO), "forty")) err ("glue"); if (strcmp (xglue(FORTY, TWO), "forty-two")) err ("xglue"); /* Test ability to call macro over multiple logical lines. */ if (q (42) != 42 || q ( 42) != 42 || q (42 ) != 42 || q ( 42 ) != 42) err ("q over multiple lines"); /* Corner case. Test that macro expansion is turned off for later q, when not at start but at end of argument context, and supplied with the '(' necessary for expansion. */ if (q(1 + q)(1) != 42) /* 1 + q(1) */ err ("Nested q"); /* This looks like it has too many ')', but it hasn't. */ if (k(1, 4) 35) != 42) err ("k"); /* Phew! */ return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log