18 lines
		
	
	
		
			502 B
		
	
	
	
		
			Common Lisp
		
	
	
	
			
		
		
	
	
			18 lines
		
	
	
		
			502 B
		
	
	
	
		
			Common Lisp
		
	
	
	
| // RUN: %clang_cc1 -O0 %s -ffake-address-space-map -emit-llvm -o - -fblocks -triple x86_64-unknown-unknown | FileCheck %s
 | |
| // This used to crash due to trying to generate a bitcase from a cstring
 | |
| // in the constant address space to i8* in AS0.
 | |
| 
 | |
| void dummy(float (^const op)(float)) {
 | |
| }
 | |
| 
 | |
| // CHECK: i8 addrspace(2)* getelementptr inbounds ([9 x i8], [9 x i8] addrspace(2)* @.str, i32 0, i32 0)
 | |
| 
 | |
| kernel void test_block()
 | |
| {
 | |
|   float (^const X)(float) = ^(float x) {
 | |
|     return x + 42.0f;
 | |
|   };
 | |
|   dummy(X);
 | |
| }
 | |
| 
 |