File: variadic-block.c

package info (click to toggle)
llvm-toolchain-9 1%3A9.0.1-16.1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 882,388 kB
  • sloc: cpp: 4,167,636; ansic: 714,256; asm: 457,610; python: 155,927; objc: 65,094; sh: 42,856; lisp: 26,908; perl: 7,786; pascal: 7,722; makefile: 6,881; ml: 5,581; awk: 3,648; cs: 2,027; xml: 888; javascript: 381; ruby: 156
file content (42 lines) | stat: -rw-r--r-- 1,022 bytes parent folder | download | duplicates (38)
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
// RUN: %clang_cc1 %s -verify -fsyntax-only -fblocks
// expected-no-diagnostics

#include <stdarg.h>

int main(int argc, char *argv[]) {
    
    long (^addthem)(const char *, ...) = ^long (const char *format, ...){
        va_list argp;
        const char *p;
        int i;
        char c;
        double d;
        long result = 0;
        va_start(argp, format);
        for (p = format; *p; p++) switch (*p) {
            case 'i':
                i = va_arg(argp, int);
                result += i;
                break;
            case 'd':
                d = va_arg(argp, double);
                result += (int)d;
                break;
            case 'c':
                c = va_arg(argp, int);
                result += c;
                break;
        }
        return result;
    };
    long testresult = addthem("ii", 10, 20);
    if (testresult != 30) {
        return 1;
    }
    testresult = addthem("idc", 30, 40.0, 'a');
    if (testresult != (70+'a')) {
        return 1;
    }
    return 0;
}