File: bug.c

package info (click to toggle)
clisp 1%3A2.27-0.5
  • links: PTS
  • area: main
  • in suites: woody
  • size: 49,860 kB
  • ctags: 20,752
  • sloc: ansic: 123,781; lisp: 67,533; asm: 19,633; xml: 11,766; sh: 9,788; fortran: 8,307; makefile: 3,570; objc: 2,481; perl: 1,744; java: 341; yacc: 318; sed: 117
file content (8 lines) | stat: -rw-r--r-- 212 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
 
/* Demonstrate a bug in the preprocessor of Borland C++ 5.0 */

#define a_b 17
#define foo(x) bar(x)
#define do(c) foo(c##_b)
do(a)
/* correct expansion:      bar(17)   */
/* Borland 5.0 expansion:  bar(a_b)  */