llvm-project/compiler-rt/test/BlocksRuntime/nullblockisa.c

//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception

//
//  nullblockisa.m
//  testObjects
//
//  Created by Blaine Garst on 9/24/08.
//
// CONFIG rdar://6244520



#include <stdio.h>
#include <stdlib.h>
#include <Block_private.h>


void check(void (^b)(void)) {
    struct _custom {
        struct Block_layout layout;
        struct Block_byref *innerp;
    } *custom  = (struct _custom *)(void *)(b);
    //printf("block is at %p, size is %lx, inner is %p\n", (void *)b, Block_size(b), innerp);
    if (custom->innerp->isa != (void *)NULL) {
        printf("not a NULL __block isa\n");
        exit(1);
    }
    return;
}
        
int main(int argc, char *argv[]) {

   __block int i;
   
   check(^{ printf("%d\n", ++i); });
   printf("%s: success\n", argv[0]);
   return 0;
}