llvm-project/compiler-rt/test/BlocksRuntime/recursive-test.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

// CONFIG open rdar://6416474
// was  rdar://5847976
// was  rdar://6348320 

#include <stdio.h>
#include <Block.h>

int verbose = 0;

int main(int argc, char* argv[]) {
	
        if (argc > 1) verbose = 1;
        
	__block void (^recursive_local_block)(int);
		
	if (verbose) printf("recursive_local_block is a local recursive block\n");
	recursive_local_block = ^(int i) {
		if (verbose) printf("%d\n", i);
		if (i > 0) {
			recursive_local_block(i - 1);
		}
    };

	if (verbose) printf("recursive_local_block's address is %p, running it:\n", (void*)recursive_local_block);
	recursive_local_block(5);

	if (verbose) printf("Creating other_local_block: a local block that calls recursive_local_block\n");

	void (^other_local_block)(int) = ^(int i) {
		if (verbose) printf("other_local_block running\n");
		recursive_local_block(i);
    };

	if (verbose) printf("other_local_block's address is %p, running it:\n", (void*)other_local_block);
		
	other_local_block(5);
	
#if __APPLE_CC__ >= 5627
	if (verbose) printf("Creating other_copied_block: a Block_copy of a block that will call recursive_local_block\n");

	void (^other_copied_block)(int) = Block_copy(^(int i) {
		if (verbose) printf("other_copied_block running\n");
		recursive_local_block(i);
    });
		
	if (verbose) printf("other_copied_block's address is %p, running it:\n", (void*)other_copied_block);
	
	other_copied_block(5);
#endif

	__block void (^recursive_copy_block)(int);

	if (verbose) printf("Creating recursive_copy_block: a Block_copy of a block that will call recursive_copy_block recursively\n");

	recursive_copy_block = Block_copy(^(int i) {
		if (verbose) printf("%d\n", i);
		if (i > 0) {
			recursive_copy_block(i - 1);
		}
    });
		
	if (verbose) printf("recursive_copy_block's address is %p, running it:\n", (void*)recursive_copy_block);

	recursive_copy_block(5);
        
        printf("%s: Success\n", argv[0]);
	return 0;
}